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Preface 


Computer  algebra  systems  are  widely  used  in  pure  and  applied  mathematics, 
physics,  and  other  natural  sciences,  engineering,  economics,  as  well  as  in  higher 
and  secondary  education  (see,  e.g.,  [1-5]).  For  example,  many  important  calcu¬ 
lations  in  theoretical  physics  could  never  be  done  by  hand,  without  wide  use  of 
computer  algebra.  Polynomial  or  trigonometric  manipulations  using  paper  and  pen 
are  becoming  as  obsolete  as  school  long  division  in  the  era  of  calculators. 

There  are  several  powerful  general-purpose  computer  algebra  systems.  The  sys¬ 
tem  Mathematica  is  most  popular.  It  contains  a  huge  amount  of  mathematical  knowl¬ 
edge  in  its  libraries.  The  fundamental  book  on  this  system  [6]  has  more  than  1,200 
pages.  Fortunately,  the  same  information  (more  up-to-date  than  in  a  printed  book)  is 
available  in  the  help  system  and  hence  is  always  at  the  fingertips  of  any  user.  Many 
books  about  Mathematica  and  its  application  in  various  areas  have  been  published; 
see,  for  example,  the  series  [7-10]  of  four  books  (each  more  than  1,000  pages  long) 
or  [11].  The  present  book  does  not  try  to  replace  these  manuals.  Its  first  part  is 
a  short  systematic  introduction  to  computer  algebra  and  Mathematical  it  can  (and 
should)  be  read  sequentially.  The  second  part  is  a  set  of  unrelated  examples  from 
physics  and  mathematics  which  can  be  studied  selectively  and  in  any  order.  Having 
understood  the  statement  of  a  problem,  try  to  solve  it  yourself.  Have  a  look  at  the 
book  to  get  a  hint  only  when  you  get  stuck.  Explanations  in  this  part  are  quite  short. 

This  book1  is  a  result  of  teaching  at  the  physics  department  of  Novosibirsk  State 
University.  Starting  from  2004,  the  course  “Symbolic  and  numeric  computations  in 
physics  applications”  is  given  to  students  preparing  for  M.Sc.,  and  an  introduction 
to  Mathematica  is  the  first  part  of  this  course  (the  second  part  is  mainly  devoted 
to  Monte  Carlo  methods).  Practical  computer  classes  form  a  required  (and  most 
important)  part  of  the  course.  Most  students  have  no  problems  with  mastering  the 
basics  of  Mathematica  and  applying  it  to  problems  in  their  own  areas  of  interest. 

The  book  describes  Mathematica  9.  Most  of  the  material  is  applicable  to  other 
versions  too.  The  Mathematica  Book  (fifth  edition)  [6],  as  well  as,  e.g.,  the  book 


1  Work  partially  supported  by  the  Russian  Ministry  of  Education  and  Science. 


v 


VI 


Preface 


series  [7-10],  describes  Mathematica  5.  The  main  source  of  up-to-date  information 
is  the  Mathematica  Help  system. 

The  whole  book  (except  Lecture  1  and  Problems  for  students)  consists  of  Math¬ 
ematica  notebooks.  They  can  be  found  at 

http : //www . inp . nsk . su/~grozin/mma/mma . zip 

The  zip  file  is  password  protected.  The  password  is  the  last  sentence  of  Lecture  7 
(case-sensitive,  including  the  trailing  period).  The  reader  is  encouraged  to  experi¬ 
ment  with  these  notebook  files.  In  the  printed  version  of  the  book,  plots  use  different 
curve  styles  (dashed,  dotted,  etc.)  instead  of  colors. 

The  book  will  be  useful  for  students,  Ph.D.  students,  and  researchers  in  the  area 
of  physics  (and  other  natural  sciences)  and  mathematics. 

Novosibirsk,  Russia  Andrey  Grozin 
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Part  I 

Lectures 


Catching  a  lion,  the  computer- algebra  method:  catch  a  cat,  put  it  into  the  cage  and 
lock  it;  then  substitute  a  lion  for  the  cat. 


Chapter  1 

Computer  Algebra  Systems 


First  attempts  to  use  computers  for  calculations  not  only  with  numbers  but  also  with 
mathematical  expressions  (e.g.,  symbolic  differentiation)  were  made  in  the  1950s. 
In  the  1960s  research  in  this  direction  became  rather  intensive.  This  area  was  known 
under  different  names:  symbolic  calculations,  analytic  calculations,  and  computer 
algebra.  Recently  this  last  name  is  most  widely  used.  Why  algebra  and  not,  say, 
calculus?  The  reason  is  that  it  is  most  useful  to  consider  operations  usually  referred 
to  calculus  (such  as  differentiation)  as  algebraic  operations  in  appropriate  algebraic 
structures  (differential  fields). 

First  universal  (i.e.,  not  specialized  for  some  particular  application  area)  com¬ 
puter  algebra  systems  appeared  at  the  end  of  the  1960s.  Not  many  such  systems 
have  been  constructed;  they  are  shown  in  the  Table  1.1.  Creating  a  universal  com¬ 
puter  algebra  system  is  a  huge  amount  of  work,  at  the  scale  of  hundreds  of  man- 
years.  Some  projects  of  this  kind  were  not  sufficiently  developed  and  subsequently 
died;  they  are  not  shown  in  Table  1.1. 


Table  1.1  Universal  computer  algebra  systems 


System 

Year 

Implementation 

language 

Current 

name 

Status 

REDUCE 

1968 

Lisp 

Free  (BSD) 

Macsyma 

1969 

Maxima 

Free  (GPL) 

Scratchpad 

1974 

Axiom 

OpenAxiom 

FriCAS 

Free  (BSD) 

muMATH 

1979 

Derive 

Dead 

Maple 

1983 

C,  C++ 

Proprietary 

Mathematica 

1988 

Proprietary 

MuPAD 

1992 

MATLAB 
symbolic  toolbox 

Proprietary 

Theoretical  physicist  A.  Hearn  (known  to  specialists  for  the  Drell-Hearn 
sum  rule)  has  written  a  Lisp  program  REDUCE  to  automatize  some  actions  in 
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1  Computer  Algebra  Systems 


calculating  Feynman  diagrams.  It  quickly  grew  into  a  universal  system.  At  first,  it 
was  distributed  free  (it  was  sufficient  to  ask  for  Hearn’s  permission)  and  became 
widely  used  by  physicists.  Later  it  became  commercial.  At  the  end  of  2008  it  has 
become  free,  with  a  modified  BSD  license. 

Macsyma  was  born  in  the  MAC  project  at  MIT  (1969),  the  name  means  MAC 
SYmbolic  MAnipulator.  The  project  has  nothing  to  do  with  Macintosh  computers, 
which  appeared  much  later.  Its  name  had  several  official  meanings  (Multiple- Access 
Computer,  Man  And  Computer,  Machine  Aided  Cognition)  and  some  unofficial 
ones  (Man  Against  Computer,  Moses  And  Company,  Maniacs  And  Clowns,  etc.). 
The  work  was  done  on  a  single  PDP-6,  later  PDP-10  computer  (about  1  MByte 
memory;  there  were  no  bytes  back  then,  but  36-bit  words).  One  of  the  first  time¬ 
sharing  operating  systems,  ITS,  was  written  for  this  computer,  and  many  users  at 
once  worked  on  it  interactively.  Later  this  computer  became  one  of  the  first  nodes 
of  ARPANET,  the  ancestor  if  Internet,  and  users  from  other  universities  could  use 
Macsyma. 

The  company  Symbolics  was  spun  off  MIT.  It  produced  Lisp  machines — 
computers  with  a  hardware  support  of  Lisp,  as  well  as  software  for  these  computers, 
including  Macsyma — the  largest  Lisp  program  at  that  time.  Later  production  of 
Lisp  machines  became  unprofitable,  because  general-purpose  workstations  (Sun, 
etc.)  became  faster  and  cheaper.  Symbolics  went  bankrupt;  Macsyma  business  was 
continued  by  Macsyma  Inc.,  who  sold  Macsyma  for  a  number  of  platforms  and 
operating  systems.  Its  market  share  continued  to  shrink  because  of  the  success  of 
Maple  and  Mathematical  and  finally  the  company  was  sold  in  1999  to  Andrew 
Topping.  The  new  owner  stopped  Macsyma  development  and  marketing.  Then  he 
died,  and  the  rights  to  the  commercial  Macsyma  now  belong  to  his  inheritors.  All 
efforts  spent  on  improving  this  branch  of  Macsyma  are  irreversibly  lost. 

Fortunately,  this  was  not  the  only  branch.  Macsyma  development  at  MIT  was 
largely  funded  by  DOE,  and  MIT  transferred  this  codebase  to  DOE  who  dis¬ 
tributed  it.  This  version  was  ported  to  several  platforms.  All  these  ports  died  except 
one.  Professor  William  Schelter  ported  DOE  Macsyma  to  Common  Lisp,  the  new 
Lisp  standard,  and  developed  this  version  until  he  died  in  2001.  This  version  was 
called  Maxima,  to  avoid  trademark  problems.  In  1998  he  obtained  permission  from 
DOE  to  release  Maxima  under  GPL.  He  also  developed  GCL  (GNU  Common  Lisp). 
Currently  Maxima  is  an  active  free  software  project  and  works  on  many  Common 
Lisp  implementations. 

Macsyma  has  played  a  huge  role  in  the  development  of  computer  algebra 
systems.  It  was  the  first  system  in  which  modern  algorithms  for  polynomials, 
integration  in  elementary  functions,  etc.,  were  implemented  (REDUCE  and  Mac¬ 
syma  influenced  each  other  strongly  and  are  rather  similar  to  each  other).  Macsyma 
was  designed  as  an  interactive  system.  For  example,  if  the  form  of  an  answer 
depends  on  the  sign  of  a  parameter,  it  will  ask  the  user 

Is  a  positive  or  negative? 

Scratchpad  was  born  in  IBM  research  laboratories  (1974).  At  first  it  did  not 
differ  from  other  systems  (Macsyma,  REDUCE)  very  much  and  borrowed  chunks 
of  code  from  them.  It  was  radically  redesigned  in  the  version  Scratchpad  II  (1985). 
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And  this  design,  perhaps,  still  remains  the  most  beautiful  one  from  a  mathematical 
point  of  view.  It  is  a  strongly  typed  system  (the  only  one  among  universal  com¬ 
puter  algebra  systems).  Any  object  (formula)  in  it  belongs  to  some  domain  (e.g., 
it  is  a  single- variable  polynomial  with  integer  coefficients).  Each  domain  belongs 
to  some  category  (e.g.,  it  is  a  ring,  or  a  commutative  group,  or  a  totally  ordered 
set).  New  domains  can  be  constructed  from  existing  ones.  For  example,  a  matrix 
of  elements  belonging  to  any  ring  can  be  constructed.  It  is  sufficient  to  program  a 
matrix  multiplication  algorithm  once.  This  algorithm  calls  the  operations  of  addi¬ 
tion  and  multiplication  of  the  elements.  If  matrices  of  rational  numbers  are  being 
multiplied,  then  addition  and  multiplication  of  rational  numbers  are  called;  and  if 
matrices  of  polynomials — then  addition  and  multiplication  of  polynomials. 

Scratchpad  was  never  distributed  to  end  users  by  IBM.  At  last,  IBM  decided  to 
stop  wasting  money  for  nought  (or  for  basic  research)  and  sold  Scratchpad  II  to  the 
English  company  NAG  (famous  for  its  numerical  libraries).  It  marketed  this  sys¬ 
tem  under  the  name  Axiom.  However,  the  product  did  not  bring  enough  profit  and 
was  withdrawn  in  2001.  Axiom  development  took  about  300  man-years  of  work  of 
researchers  having  highest  qualification.  All  this  could  easily  disappear  without  a 
trace.  Fortunately,  one  of  old-time  Scratchpad  II  developers  at  IBM,  Tim  Daly,  has 
succeeded  in  convincing  NAG  to  release  Axiom  under  the  modified  BSD  license. 
Now  it  is  a  free  software  project  and  still  the  most  beautiful  system  from  mathemat¬ 
ical  point  of  view.  But  unfortunately,  due  to  incompatible  visions  of  the  directions 
of  the  future  development,  two  forks  appeared — Open  Axiom  and  FriCAS.  And  it  is 
not  clear  which  one  is  better. 

muMATH  (Soft  Warehouse,  Hawaii,  1979)  got  to  the  list  of  universal  computer 
algebra  systems  with  some  stretch.  It  was  written  for  microprocessor  systems  with 
a  very  limited  memory  (later  called  personal  computers);  mu  in  its  name,  of  course, 
means  /I,  i.e.,  micro.  This  system  never  implemented  advanced  modern  algorithms. 
It  used  heuristic  methods  instead,  as  taught  in  university  calculus  courses:  let’s  try 
this  and  that,  and  if  you  can’t  get  it,  you  can’t  get  it.  But  it  was  surprisingly  powerful 
at  its  humble  size.  The  system  has  been  essentially  rewritten  in  1988  and  got  a  menu 
interface,  graphics,  and  the  new  name,  Derive.  Then  Soft  Warehouse  was  bought 
by  Texas  Instruments,  who  presented  a  calculator  with  a  (Derive-based)  computer 
algebra  system  in  1995.  Derive  was  withdrawn  from  market  in  2007. 

All  these  systems  can  be  referred  to  the  first  generation.  They  are  all  written 
in  various  dialects  of  Fisp.  They  were  considered  related  to  the  area  of  artificial 
intelligence. 

The  first  representative  of  the  second  generation  is  the  Canadian  system  Maple. 
It  has  a  small  kernel  written  in  C,  which  implements  an  interpreted  procedural 
language  convenient  for  writing  computer  algebra  algorithms.  The  major  part  of 
its  mathematical  knowledge  is  contained  in  the  library  written  in  this  language. 
Maple  can  work  on  many  platforms.  It  quickly  became  popular.  In  2009  Maplesoft 
(Waterloo  Maple  Inc.)  has  been  acquired  by  the  Japanese  company  Cybernet  Sys¬ 
tems  Group;  development  of  Maple  is  not  affected.  By  the  way,  numerical  program 
MathCAD  used  a  cut-down  version  of  Maple  to  provide  some  computer  algebraic 
capabilities. 
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In  the  beginning  of  the  1980s,  a  young  theoretical  physicist  Steven  Wolfram,  an 
active  Macsyma  user,  together  with  a  few  colleagues,  has  written  a  system  SMP 
(Symbolic  Manipulation  Program).  The  project  was  a  failure  (I  still  have  a  huge 
SMP  manual  sent  to  me  by  S.  Wolfram).  After  that,  he  understood  what  mass  users 
want — they  want  a  program  to  look  pretty.  He,  together  with  a  few  colleagues,  has 
rewritten  the  system,  paying  a  lot  of  attention  to  the  GUI  and  graphics  (the  symbolic 
part  was  largely  based  on  SMP).  The  result  was  Mathematica ,  version  1  (1988).  And 
Wolfram  got  his  first  million  in  three  months  of  selling  it. 

Mathematica  heavily  relies  on  substitutions.  Even  a  procedure  call  is  a  substitu¬ 
tion.  Pattern  matching  and  their  replacing  by  right-hand  sides  of  substitutions  are 
highly  advanced  in  Mathematica.  Often  a  set  of  mathematical  concepts  can  be  eas¬ 
ily  and  compactly  implemented  via  substitutions.  On  the  other  hand,  this  can  lead 
to  inefficiency:  pattern  matching  is  expensive. 

The  latest  arrival  in  the  list  of  universal  computer  algebra  systems  is  MuPAD 
(its  name  initially  meant  Multi-Processor  Algebra  Data  tool,  and  indeed  early 
versions  contained  experimental  support  of  multiprocessor  systems,  which  later 
disappeared).  The  system  was  designed  and  implemented  by  a  research  group  at  the 
University  of  Paderborn  in  Germany  (this  is  one  more  meaning  of  PAD  in  the  name) 
in  1992  and  later  was  distributed  commercially  by  the  company  SciFace.  Initially, 
MuPAD  was  quite  similar  to  Maple.  Later  it  borrowed  many  ideas  from  Axiom  (do¬ 
mains,  categories;  however,  MuPAD  is  dynamically  typed).  During  a  long  period,  it 
was  allowed  to  download  and  use  MuPAD  Light  for  free;  it  had  no  advanced  GUI, 
but  its  symbolic  functionality  was  not  cut  down.  Funding  of  the  University  project 
was  stopped  in  2005;  in  2008,  SciFace  was  bought  by  Mathworks,  the  makers  of 
MATLAB.  After  that,  MuPAD  is  available  only  as  a  MATLAB  addon. 

It  seems  that  Mathematica  dominates  the  market  of  commercial  computer  al¬ 
gebra  systems,  with  Maple  being  number  two.  Mathematica  is  highly  respected 
for  the  huge  amount  of  mathematical  knowledge  accumulated  in  its  libraries.  It  is 
not  bug-free  (this  is  true  for  all  systems).  Often  it  requires  more  resources  (mem¬ 
ory,  processor  time)  for  solving  a  given  problem  than  other  systems.  But  it  is  very 
convenient  and  allows  a  user  to  do  a  lot  in  a  single  framework. 

In  addition  to  universal  systems,  there  are  a  lot  of  specialized  computer  alge¬ 
bra  systems.  Here  we’ll  briefly  discuss  just  one  example  important  for  theoretical 
physics. 

In  the  1960s,  a  well-known  Dutch  theoretical  physicist  M.  Veltman,  a  future 
Nobel  prize  winner,  has  written  a  system  Schoonschip  in  the  assembly  language  of 
CDC-6000  computers  (in  Dutch  Schoonschip  means  “to  clean  a  ship,”  in  a  figura¬ 
tive  sense  “to  put  something  in  order,”  “to  throw  unneeded  things  overboard”).  This 
system  was  designed  for  handling  very  long  sums  (millions  of  terms)  whose  size 
can  be  much  larger  than  the  main  memory  and  is  limited  only  by  the  available  disk 
space.  All  operations  save  one  are  local:  they  are  substitutions  which  replace  a  single 
term  by  several  new  ones.  The  system  gets  a  number  of  terms  from  the  disk,  applies 
the  substitution  to  them,  and  puts  the  results  back  to  the  disk.  The  only  unavoidable 
nonlocal  operation  is  collecting  similar  terms;  it  is  done  with  advanced  disk  sort¬ 
ing  algorithms.  Built-in  mathematical  knowledge  of  the  system  is  very  limited;  the 
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user  has  to  program  everything  from  scratch.  Many  nontrivial  algorithms,  such  as 
polynomial  factorization,  are  highly  nonlocal  and  impossible  to  implement.  On  the 
other  hand,  this  was  the  only  system  which  could  work  with  very  large  expressions, 
orders  of  magnitude  larger  than  in  other  systems.  Later  Schoonschip  was  ported 
to  IBM-360  (in  PL/I;  you  can  guess  that  this  was  not  done  by  Veltman  :-).  Then 
Veltman  has  rewritten  it  from  the  CDC  assembly  language  to  the  680x0  assembly 
language.  When  680x0-based  personal  computers  (Amiga,  Atari)  became  extinct,  it 
became  clear  that  something  similar  but  more  portable  is  needed. 

In  1989  another  well-known  Dutch  theoretical  physicist,  Vermaseren,  has  writ¬ 
ten  (in  C)  a  new  system,  Form.  It  follows  the  same  ideology,  but  many  details  differ. 
It  was  distributed  free  of  charge  as  binaries  for  a  number  of  platforms;  recently 
it  became  free  software  (GPL).  Development  of  Form  continues.  A  parallel  ver¬ 
sion  for  multiprocessor  computers  and  for  clusters  with  fast  connections  now  exists. 
Many  important  Feynman  diagram  calculations  could  never  have  been  done  without 
Schoonschip  and  later  Form. 

The  percentage  of  theoretical  physicists  among  authors  of  computer  algebra 
systems  is  suspiciously  high.  Some  of  them  remained  physicists  (and  even  got  a 
Nobel  prize);  some  completely  switched  to  development  of  their  systems  (and  even 
became  millionaires). 

In  conclusion  we ’ll  discuss  a  couple  of  important  computer  algebra  concepts. 
For  some  (sufficiently  simple)  classes  of  expressions  an  algorithm  of  reduction  to 
a  canonical  form  can  be  constructed.  Two  equal  expressions  reduce  to  the  same 
canonical  form.  In  particular,  any  expression  equal  to  0,  in  whatever  form  it  is  writ¬ 
ten,  has  the  canonical  form  0. 

For  example,  it  is  easy  to  define  a  canonical  form  for  polynomials  of  several 
variables  with  integer  (or  rational)  coefficients:  one  has  to  expand  all  brackets  and 
collect  similar  terms.  What’s  left  is  to  agree  upon  an  unambiguous  order  of  terms, 
and  we  have  a  canonical  form  (this  can  be  done  in  more  than  one  way). 

It  is  more  difficult,  but  possible,  to  define  a  canonical  form  for  rational 
expressions  (ratios  of  polynomials).  One  has  to  expand  all  brackets  and  to  bring  the 
whole  expression  to  a  common  denominator  (collecting  similar  terms,  of  course). 
However,  this  is  not  sufficient:  one  can  multiply  both  the  numerator  and  the  denom¬ 
inator  by  the  same  polynomial  and  obtain  another  form  of  the  rational  expression. 
It  is  necessary  to  cancel  the  greatest  common  divisor  (gcd)  of  the  numerator  and 
the  denominator.  Calculating  polynomial  gcd’s  is  an  algorithmic  operation,  but  it 
can  be  computationally  expensive.  What’s  left  is  to  fix  some  minor  details — an 
unambiguous  order  of  terms  in  both  the  numerator  and  the  denominator  and,  say, 
the  requirement  that  the  coefficient  of  the  first  term  in  the  denominator  is  1 ,  and  we 
obtain  a  canonical  form. 

A  normal  form  for  a  class  of  expressions  satisfies  a  weaker  requirement:  any 
expression  equal  to  0  must  reduce  to  the  normal  form  0.  For  example,  bringing  to 
common  denominator  (without  canceling  gcd)  defines  a  normal  form  for  rational 
expressions. 

For  more  general  classes  of  expressions  containing  elementary  functions,  not 
only  canonical  but  even  normal  form  does  not  exist.  Richardson  has  proved  that  it 
is  algorithmically  undecidable  if  such  an  expression  is  equal  to  0. 


Chapter  2 

Overview  of  Mathematica 


2.1  Symbols 

Let’s  assign  an  expression  containing  a  symbol  x  to  a  variable  a.  No  value  is  assigned 
to  v. 

In[l]  :=  a  =xA2—  1 

Out[l]  =  —  1  -f  x2 

Now  let’s  assign  some  value  to  x  and  see  what  happens  to  a. 

In[2]  :=x  =  z~h  1;  a 

Out  [2]  =  —  1  +  (1  +z)2 

The  value  of  a  has  not  really  changed.  It  is  still  the  same  expression  containing  x. 
What  if  we  assign  another  value  to  x? 

In[3]  :=  x  =  z  —  1;  a 

Out[3]  =  —  1  T-  (—1  -bz)2 

We  can  delete  the  value  of  the  variable  x,  thus  returning  it  to  its  initial  state  in  which 
it  means  just  the  symbol  x.  We  see  that  indeed  the  value  of  a  has  not  changed. 

In[4]  :=  Clear  [x];  a 

Out  [4]  =  -  \-\-x2 

Now  let’s  try  to  assign  an  expression  containing  x  to  the  variable  x. 

In[5]  :=  $RecursionLimit  =  32;  x  =  x+ 1 

$RecursionLimit ::  reclim  :  Recursion  depth  of  32  exceeded. 

Out  [5]  =  1  H—  (1  — |—  (1  — |—  (1  — |—  (1  — K  (1  — |—  (1  H—  (1  — |—  (1  — |—  (1  — |—  (1  — L  (1  — K  (1  — I—  (1  H—  (1—|— 

(l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l  +  (l+Hold[l  + 

*]))))))))))))))))))))))))))))) 

Mathematica  complains.  What  has  happened?  Mathematica  wants  to  print  x,  and  to 
this  end  it  calculates  the  value  of  x.  It  sees  x  in  this  value  and  substitutes  the  value  of 
x.  In  this  value,  it  again  sees  x  and  substitutes  its  value.  And  so  on  ad  infinitum.  In  re¬ 
ality,  the  depth  of  such  substitutions  is  limited;  the  default  value  of  the  limit  is  1,024 
(we  have  temporarily  changed  it  to  32).  The  value  of  the  expression  1  +x  which 
failed  to  evaluate  is  returned  as  the  function  Hold;  we  shall  discuss  it  in  Sect.  6.9. 

In [6]  :=  $RecursionLimit  =  1024;  Clear [x] 
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2.2  Numbers 


Mathematica  can  work  with  arbitrarily  long  integer  numbers. 

In[7]  :=  Factorial[100] 

Out  [7]  =  933262154439441526816992388562667004907159682643816214685\ 
929638952175999932299156089414639761565 1828625369792082722375\ 
825118521091 6864000000000000000000000000 


When  working  with  a  rational  number,  the  greatest  common  divisors  of  its  numera¬ 
tor  and  denominator  are  canceled. 


In[8]  :=  a  =  1234567890/987654321 

^  rol  137174210 

Ut^  ^  ““  109739369 

Calculations  with  rational  numbers  are  exact. 


In[9]  :=  aA 5 

Out[9]  =48569355286282885522765185491603110100000/ 
15915207065345784618237986236670245907849 


How  much  is  this  numerically?  Say,  with  30  significant  digits? 

In[10]  :=N[a, 30] 

Out  [10]  =  1.24999998860937500014238281250 

Mathematica  can  work  with  real  (floating-point)  numbers  having  arbitrarily  high 
precision. 

In[ll]  :=  a  =  1234567890987654321.1234567890987654321 

Out[l  1]  =  1.234567890987654321 123456789098765432  x  1018 

In[12]  :=  aA 5 

Out[12]  =  2.86797187177160567275921531725363508  x  1090 
Here  are  n  and  e  with  100  significant  digits. 

In[13]  :=  A?[Pi,  100] 

Out[13]  =  3. 1415926535897932384626433832795028841 97 169399375 10582097\ 
49445923078 1 6406286208998628034825342 1 1 7068 

In[14]  :=  N[E,  100] 

Out  [14]  =  2.7 1 828 1 82845904523536028747 1 35266249775724709369995957496\ 
696762772407663035354759457 1382178525166427 


2.3  Polynomials  and  Rational  Functions 

Let’s  take  a  polynomial. 

In[15]  :=a  =  (x+y  +  z)A6 

Out[15]  =  (v  +  y-t-z)6 

Expand  it. 
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In[16]  \—a  —  Expand [«] 

Out[16]  =  x6  +  6x5y  +  15  x4y2  +  20x3/  +  15  x2y4  +  6xy5  +  y6  +  6x5z  +  30x4yz  + 
60x3y2z  +  60x2y3z  +  30x/z  +  6y5z  +  15x4z2  +  60 x3yz2  H-  90x2y2z2  + 

60x/z2  +  15/z2  +  20x3z3  +  60x2yz3  +  60xy2z3  +  20y3z3  +  15x2z4  + 

30xyz4  +  15y2z4  +  6xz5  +  6yz5  +  z6 

The  degree  in  x. 

In[17]  :=  Exponent^/,  x] 

Out[17]  =  6 

The  coefficient  of  x2. 

In[18]  :=  Coefficient  [a,  x,  2] 

Out  [18]  =  15/  +  60y3z  +  90y2z2  +  60yz3  +  15z4 
Collect  terms  with  the  same  power  of  x  together. 

In[19]  :=  Collect  [a,  x] 

Out  [  1 9]  =  x6  +  y6  +  6y5z  +  1 5  /z2  +  20y3z3  +  1 5y2z4  +  6yz5  +  z6  +  x5  (6y  +  6z)  + 
x4  (15/  +  30 yz  +  15z2)  +  x3  (20/  +  60y2z  +  60yz2  +  20z3)  + 
x2  (15/  +  60y3z  +  90/z2  +  60yz3  +  15z4)  + 

x  ^6y5  +  30 /z  +  60/z2  +  60y2z3  +  30yz4  +  6z5^ 

Factorize  it. 

In[20]  :=a  =  Factor[a] 

Out  [20]  =  (x  +  y  +  z)6 

Suppose  we  want  to  factorize  polynomials  xn  —  1  with  various  n.  The  parameter  n 
can  be  varied  from  2  to  10  by  dragging  the  marker  with  the  mouse. 

In[21]  :=  Manipulate  [Factor  jxAn  —  l],{/i,2, 10, 1, Appearance—  >”Labeled”}] 


Out  [21]  =  n  6 

(- 1  +x)(  1  +x)(  1  — X+X2)(  1 +X+X2) 


There  exists  an  algorithm  which  completely  factorizes  any  polynomial  with  integer 
coefficients  into  factors  which  also  have  integer  coefficients. 

In [22]  :=  Factor |xA 4  —  1] 

Out [22]  =  (—  1  +x)(l  +x)  (l  -f-x2) 

If  we  want  to  get  factors  whose  coefficients  come  from  an  extension  of  the  ring  of 
integers,  say,  by  the  imaginary  unit  i,  we  should  say  so  explicitly. 

In[23]  :=  Factor [xA4—  1, Extension—  >/] 

Out[23]  =  (—  1  +x)(— i  +  x)(i  +  x)(l  +x) 

This  polynomial  factorizes  into  two  factors  with  integer  coefficients. 

In [24]  :=  a  =  xA4  —  4;  Factor^/] 

Out [24]  =  (— 2-fx2)  (2  +  x2) 

If  coefficients  from  the  extension  of  the  ring  of  integers  by  are  allowed — into 
three  factors. 

In[25]  :=  Factor^/,  Extension— >Sqrt [2]] 

Out[25]  =  —  (^/2  —  x^j  ^/2-fx^  (2-fx2) 
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And  if  the  ring  of  coefficients  is  extended  by  both  \fl  and  i — into  four  factors. 

In[26]  :=  Factor  [« , Extension—  > { Sqrt [2] ,  /}] 

Out[26]  =  —  (^\/2  —  xj  ^y/2  —  \xj  (^/2  +  vcj  ^\/2  +  a;^ 

And  this  is  a  rational  function. 

In[27]  :=  (*A3-yA3)/(xA2-yA2) 


Out  [27] 


x3  —  y3 
x2  —y2 


It  is  not  canceled  by  the  greatest  common  divisor  of  its  numerator  and  denominator; 
this  should  be  done  explicitly. 

In[28]  :=  Cancel[%] 


Out[28]  = 


x2  +  xy  +  y 2 

x  +  y 


(%  means  the  result  of  the  previous  calculation).  A  sum  of  rational  functions. 
In[29]  :=  a  =  x/(x+y)  -\-y/(x-y) 

Out  [29]  =  + 


x-y  x+y 

Let’s  put  it  over  the  common  denominator. 

In[30]  :=a  =  Together^/] 

X2  -4-  y2 

Out[30]  =  t 

(x-y)(x  +  y) 

Partial  fraction  decomposition  with  respect  to  x. 

In[31]  :=  Apart[a,jr] 

Out[31]  =  l+  'V  J 


x  — y 

In[32]  :=  Clear[a] 


x  +  y 


2.4  Elementary  Functions 


Mathematica  knows  some  simple  properties  of  elementary  functions. 

In[33]  :=  Sin[-x] 

Out[33]  =  — Sin[x] 

In[34]  :=  Cos[Pi/4] 


Out  [34] 
In[35]  := 
Out[35] 


1 


V2 

Sin[5*Pi/6] 

1 


In[36]  :=  Log[l] 
Out[36]  =  0 
In[37]  :=  Lo g[E] 
Out[37]  =  1 
In[38]  :=  Exp  [Log  [x]] 
Out[38]  =  x 
In[39]  :=  Log  [Exp  [a*]] 


2.5  Calculus 
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Out  [3  9]  =  Log  [eA 

And  why  not  x?  Because  this  simplification  is  not  always  correct.  Try  to  substi¬ 
tute  27ri. 

In[40]  :=  Sqrt[0] 

Out  [40]  =  0 
In[41]  :=  Sqrt[x]A2 
Out  [41]  =  x 
In[42]  :=  Sqrt[xA2] 

Out  [42]  =  Vx^ 

And  why  not  x?  Try  to  substitute  —  1 . 

In[43]  \—a  —  Sqrt[12*xA2*y] 

Out  [43]  =  2v/3\/^y 

This  result  can  be  improved,  if  we  know  that  x  >  0. 

In[44]  :=  Simplify[a,x  >  0] 

Out  [44]  =  2  V3x^/y 
And  this  is  the  case  x  <  0. 

In[45]  :=  Simplify  [c/,x  <  0] 

Out[45]  =  —lV?>x^/y 

Expansion  of  trigonometric  functions  of  multiple  angles,  sums,  and  differences: 
In[46]  :=  TrigExpand[Cos[2  **]] 

Out  [46]  =  Cos[x]2  —  Sin[x]2 
In[47]  :=  TrigExpand[Sin[x  —  v]] 

Out [47]  =  Cos[y]  Sin[x]  —  Cos[x]  Sin  [y] 

The  inverse  operation — transformation  of  products  and  powers  of  trigonometric 
functions  into  linear  combinations  of  such  functions — is  used  more  often.  Let’s  take 
a  truncated  Fourier  series. 

In [48]  :=  a  —  al  *  Cos[x]  +  a2  *  Cos [2  * x]  +  bl  *  Sin[x]  +  b2  *  Sin[2  * x] 

Out[48]  =  alCos[x]  +a2Cos[2x]  +blSin[x]  -fb2Sin[2x] 

Its  square  is  again  a  truncated  Fourier  series. 

In[49]  :=  TrigReduce[aA2] 

Out[49]  =  -  (al2  +  a22  +  bl2  -fb22  -f-2al  a2Cos[x]  +2blb2Cos[x]  -fal2Cos[2x]  — 

bl2Cos[2x]  +  2ala2Cos[3x]  -  2blb2Cos[3x]  +a22Cos[4x]  -b22Cos[4x]  - 
2a2blSin[x]  +2alb2Sin[x]  +2alblSin[2x]  +2a2blSin[3x]  + 

2  a  1  b2  Sin  [3x]  +  2  a2  b2  Sin  [4x] ) 


2.5  Calculus 


Let’s  take  a  function. 

In[50]  :=  /  =  Logl*7^ + x+ 1]  + 1/(^5 +jc+  1) 

Out  [50]  =  — - — ^  +  Log 


1  +  X  +  X5 

Calculate  its  derivative. 


1  +  x  +  x~ 
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In[51]  -=g  =  D[f,x] 

„  rril  1  +5x4 

Out[51]  =  — 


+ 


1  +  5x 4 


(1  +x  +  x5)z  l+x  +  x5 

Put  over  the  common  denominator. 

In[52]  :=g  =  Together^] 

(l +5v4)  (v-f-v5) 

Out  52  =  A ^ - ^-L 

(1  +  V  +  V5) 

A  stupid  integration  algorithm  would  try  to  solve  the  fifth  degree  equation  in  the 
denominator,  in  order  to  decompose  the  integrand  into  partial  fractions.  Mathemat¬ 
ica  is  more  clever  than  that. 

In[53]  :=  Integrate^, x] 

1 


Out[53] 


+  L  og 


1  X  -f~  X 3 


l  -j-x-j-x5 

Let’s  expand  our  function  in  v  at  0  up  to  v10. 

In [54]  :=Series[/,{jc,0,10}] 

x2  2x3  3x4  4x5  l  lx6 

Ou,|54]  =  1  +  t--  +  x--  +  — 

32jc10 


20x7  3bt8 

+ 


44xc 


7 


8 


+ 


+  O 


x 


li 


Mathematica  can  calculate  many  definite  integrals  even  when  the  corresponding 
indefinite  integral  cannot  be  taken.  Here  is  an  integral  from  0  to  1 . 

In[55]  :=  Integrate  [Log  [x] A  2/  (x  + 1),  1}] 

Out[5S]  = 

Mathematica  knows  how  to  sum  many  series. 

In[56]  :=  Sum[l/nA4,{n,  1, Infinity}] 


71 

90 


Out  [5  6]  = 

Let’s  clear  all  the  garbage  we  have  generated- 

In [57]  :=  Clear [/,g] 


-a  very  good  habit. 


2.6  Lists 

We  have  already  encountered  this  construct  several  times: 
In[58]  :=  a  =  {x,y,z} 

Out  [5  8]  =  {x,y,z} 

This  is  a  list.  And  here  are  its  elements. 

In[59]  :=  a[[l]] 

Out[59]  =  v 
In[60]  :=  a[[ 2]\ 

Out[60]  =  y 
In[61]  :=  a[[ 3]] 

Out[61]  =  z 
In[62]  :=  Clear[a] 


2.7  Plots 
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2.7  Plots 


A  simple  plot  of  a  function. 

In[63]  :=  Plot[Sin[x]/x,  {x,  — 10, 10}] 


A  curve  given  parametrically — x  and  y  are  functions  of  t.  This  particular  curve 
contains  a  parameter  a ,  which  can  be  adjusted  by  the  mouse.  If  you  click  the  small 
plus  sign  near  the  marker,  a  control  panel  will  open.  There  you  can  start  (and  stop) 
animation. 

In[64]  :=  Manipulate[ParametricPlol[{Exp[a  *  /]  * Cos[/], Exp[c/  * /]  *  Sin[/] }, 
{/,0,20},PlotRange->{{-10,10},{-10,10}}],{{a»0.1},0»0.2}] 


A  three-dimensional  plot  of  a  function  of  two  variables.  It  can  be  rotated  by  the 


mouse. 
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2  Overview  of  Mathematica 


In [65]  :=  Plot3D[xA2+yA2,{*,— 1,  l},{y, -1,1}] 


A  three-dimensional  curve  given  parametrically.  The  parameter  a  can  be  adjusted 
by  the  mouse. 

In[66]  :=  Manipulate [ParametricPlot3D[{ Cos [f] , Sin[t] 0, 20}, 
PlotRange->{{-l,l},{-M},{0,2}}],{{«,0.1}»0,0.2}] 


A  surface  given  parametrically. 


2.8  Substitutions 
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In[67]  :=  ParametricPlot3D[{ Sin [t]  *  Cos [u] ,  Sin [/]  *  Sin [u] ,  Cos [r] } ,  {/\  0,  Pi } , 
{n,  0,2*  Pi}] 

1.0 


2.8  Substitutions 


Substitutions  are  a  fundamental  concept  in  Mathematical  its  main  working  instru¬ 
ment.  This  substitution  replaces  f[x\  by  v2. 

In[68]  :=S  =  f[x\->xA 2 

Out[68]  =  f[x\  x 2 

Let’s  apply  it  to  the  expression  f[x\. 

In[69]  :=f[x]/.S 
Out[69]  =  x2 

We’ve  got  x2,  as  expected.  And  what  if  we  apply  it  to  f\y\l 
In[70]  :=f\y\/.S 

Out  [70]  =  f\y] 

It  hasn’t  triggered.  The  following  substitution  replaces  the  function  /  with  an  arbi¬ 
trary  argument  by  the  square  of  this  argument. 
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2  Overview  of  Mathematica 


In[71]  :=S  =  f\x.]->xA2 

Out[71]  =  /[x_]  — >  x2 

Let’s  check. 

In[72]  :=  {/[*], /b],/[2]}/.S 

Out  [7  2]  =  {x2,y2, 4} 

In[73]  :=  Clear[S] 


2.9  Equations 


Here  is  an  equation. 

In [74]  :=  Eq  =  «  *  x + Z?  ==  0 
Out  [74]  =  b-^  ax  ==  0 
Let’s  solve  it  for  x. 

In[75]  :=S  =  Solve[Eq,x] 

Out[75]  b 


We’ve  got  a  list  of  solutions,  in  this  particular  case  having  a  single  element.  Each 
solution  is  a  list  of  substitutions,  which  replaces  our  unknowns  by  the  corresponding 
expressions.  And  how  can  we  extract  the  value  of  x  from  this  result?  Let’s  take  the 
first  (and  the  only)  element  of  the  list  S. 

In[76]:=Sl=First[S] 

r  b 

Out[76]  =  <  x  — >  — 

(  a 

And  now  we  apply  this  list  of  substitutions  (in  this  particular  case,  it’s  single 
element)  to  the  unknown  x. 

In[77]  :=x/.Sl 

r  i  b 

Out  [7  7]  =  — 
a 

Here  is  a  more  advanced  example — a  quadratic  equation.  It  has  two  solutions. 

In [7 8]  :=S  =  Solve[a * xA2  +  b*x+c  ==  0,x] 

_  ranl  b  —  Vb2  —  4 ac  1  [  —b  -\-\/b2  —  4 ac 

Out  [7  8  J 


2a  J  I  2 a 

How  can  we  extract  the  value  of  x  in  the  second  solution?  Let’s  apply  the  second 
element  of  the  solutions  list  S  (which  is  a  single-element  list  of  substitutions)  to  the 
unknown  x. 

In[79]  :=x/.S[[ 2]] _ 

—b  +  Vb2  —  4  ac 


2a 


Out  [7 9]  : 

And  here  is  a  system  of  2  linear  equations. 

In[80]  :=  Eq  =  {a*x+Z>*y  ==  e^c*x+d*y  ==  /} 

Out[80]  =  {ax  +  by  ==  <?,  cx  +  dy  ==  /} 

It  has  a  single  solution. 


2.9  Equations 
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In[81]  :=S  =  Solve[Eq,  {x, y}] 

Out[81  }  =  {{x^  -die~bft,y 


—ce  H-  af  "1 


} 


be  —  ad  be  —  ad 

This  (first  and  the  only)  solution  is  a  fist  of  two  substitutions. 

In[82]:=Sl=S[[l]] 

de  —  bf  —ce  +  af\ 


—  ad  / 


Out[82  ]  =  bc 

How  to  find  the  values  of  x  and  y  in  this  solution?  Apply  this  list  of  substitutions  to 
the  unknowns  x  and  y. 

In[83]  :=  {x/.Sl,y/.Sl} 

r,  .roil  _  /  de~bf  -ce  +  af 
0utI83]  (  bc_ad >  be -ad 

In[84]  ^ClearfEq^Sl] 


Chapter  3 

Expressions 


All  objects  with  which  Mathematica  works  are  expressions.  There  are  two  classes 
of  them — atoms  and  composite  expressions. 


3.1  Atoms 

There  are  three  kinds  of  atoms — numbers,  symbols,  and  strings. 


Numbers 


Integer  numbers  (of  unlimited  size). 

In[l]  :=  1234567890 

Out[l]  =  1234567890 

A  rational  number  consists  of  the  numerator  and  the  denominator. 

In[2]  := 1234567890/987654321 

_  137174210 

Out  2  = - 

L  J  109739369 

A  complex  number  consists  of  the  real  and  imaginary  parts. 

In [3]  :=  1+2*7 

Out[3]  =  1  +  2i 

Real  numbers  can  have  arbitrarily  high  precision. 

In[4]  :=  1234567890.987654321 

Out[4]  =  1.23456789098765432  x  109 
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3  Expressions 


Symbols 

A  variable  can  be  in  one  of  two  states.  Initially  it  is  free — it  means  itself  (a  symbol). 

In[5]  :=  x 

Out[5]  =  v 

Assigning  a  value  to  it,  we  make  it  bound. 

In[6]  :=x=  123 
Out  [6]  =  123 

Now,  when  we  use  it  (e.g.,  just  by  asking  Mathematic  a  to  print  it),  its  value  is 
substituted. 

In[7]  :=  x 

Out  [7]  =  123 

How  to  make  it  free  again? 

In[8]  :=  Clear[x] 

Let’s  check. 

In[9]  :=  x 

Out[9]  =  v 


Strings 


In[10]  :=  ’’This  is  a  sfring” 

Out  [10]  =  This  is  a  string 


3.2  Composite  Expressions 

A  composite  expression  is  a  function  of  a  number  of  arguments,  each  of  which  is  an 
expression  (i.e.,  an  atom  or  a  composite  expression). 

In[ll]  :=a  =  f[g[x,l]ih\y,z,2]\ 

Out[l  1]  =  f[g[x,l],h\y,z,2]\ 

Each  composite  expression  has  a  head — the  function  which  is  applied  to  arguments. 
In[12]  :=  Head  [a] 

Out[12]  =  / 

The  number  of  arguments  is  given  by  the  function  Length. 

In[13]  :=  Length  [a] 

Out[13]  =2 

Arguments  are  extracted  by  the  function  Part. 

In [14]  :=  Part[tf,  1] 

Out  [14]  =  g[x,  1] 

In[15]  :=  Part  [a,  2] 

Out[15]  =h\y,z,  2] 

And  this  is  the  first  part  of  the  second  part  of  the  expression  a. 


3.2  Composite  Expressions 


23 


In[16]  :=  Part[a,2, 1] 

Out[16]  =  y 
An  alternative  syntax. 

In[17]  :=  a[[2, 1]] 

Out[17]  =y 

Zeroth  part  of  an  expression  is  its  head. 

In[18]  :=Part[a,0] 

Out[18]  =  / 

By  the  way,  a  head  can  be  any  expression,  not  just  a  symbol. 

In[19]:=&  =  /M[y>l] 

Out[19]  =f[x]\y,l] 

In[20]  :=  Head [b] 

Out  [20]  =  f[x\ 

Expressions  are  trees  whose  leaves  are  atoms. 

In[21]  :=  TreeForm[a] 

Out[21]//TreeForm  = 


Parts  of  an  expressions  can  be  changed. 

In[22]  :=  a[[l,2]]  =  0;  a 
Out  [22]  =  f[g[x,0],h\y,z,2]} 

In[23]  :=  a[[0]j  =  j:  a 

Out[23]  =  j[g[x,0],h\y,z,2}} 

A  group  of  arguments  can  be  selected,  not  just  a  single  argument. 
In[24]  :=b  =  /[xl,x2,x3,x4,x5,x6] 

Out  [24]  =/[x  I,x2,x3,x4,x5,x6] 

In [25]  :=  Part[&,Span[2,4]] 

Out  [25]  =/[x2,x3,x4] 

An  alternative  syntax. 

In [26]  :=  />[[2;;4]] 

Out[26]  =/[x2,x3,x4] 
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3  Expressions 


From  the  beginning  to  3: 

In[27]  :=*[[;;  3]] 

Out  [27]  =/[x  I,x2,x3] 

From  4  to  the  end: 

In [28]  :=b[[ 4;;]] 

Out[28]  =  /[x4,x5,x6] 

From  1  to  5  by  2: 

In[29]  :=  £>[[1; ;5; ;2]] 

Out[29]  =/[x  I,x3,x5] 

If  such  a  form  is  used  in  the  left-hand  side  of  an  assignment,  each  of  the  selected 
arguments  will  be  replaced: 

In[30]  :=b[[  1;;5;;2]]  —  x\b 

Out[30]  =  flx.x  2,x,x4,x,x6] 

In[31]  :=  Clear  [a,  b) 


3.3  Queries 

Let’s  define  an  integer  number,  a  rational  number,  a  real  (floating  point)  number, 
and  a  complex  number. 

In[32]  :=  i  =  -1234567890;  r  =  -1234567890/987654321; 

/  =  -1234567890987654321.1234567890987654321;  c  =  1  -  2  */; 

The  query  AtomQ  (Q  from  Query)  returns  the  symbol  True  if  its  argument  is  an 
atom  and  False  if  it  is  a  composite  expression. 

In[33]  :=  { AtomQ [/] ,  AtomQ [;*] ,  AtomQ [c] ,  AtomQ [f[x] ] } 

Out[33]  =  {True,  True,  True,  False} 

The  function  Head  can  be  applied  even  to  atoms. 

In[34]  :=  { Head [/] ,  Head [r] ,  Head [c] ,  Head [/] } 

Out[34]  =  {Integer,  Rational,  Complex,  Real} 

The  function  FullForm  shows  the  internal  form  of  an  expression  with  which  Math- 
ematica  operates  (to  some  approximation).  For  example,  a  rational  number  has  the 
head  Rational  and  two  arguments — its  numerator  and  denominator. 

In[35]  :=  FullForm[r] 

Out[35]/ /FullForm  = 

Rational  [—137174210, 109739369] 

A  complex  number  has  the  head  Complex  and  two  arguments — its  real  and  imagi¬ 
nary  parts. 

In[36]  :=  FullForm[c] 

Out[36]/ /FullForm  = 

Complex  [1,  —2] 

The  internal  representation  of  a  floating  point  number  is  rather  complicated. 
It  contains  the  mantissa  and  the  exponent  and  also  the  number  of  significant 
(decimal)  digits.  In  this  particular  case,  there  are  37  significant  digits. 


3.4  Forms  of  an  Expression 
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In[37]  :=  FullForm[/] 

Out[37]/ /FullForm  = 

—  1.234567890987654321 123456789098765432F37. 0915 149775 1671  *A  18 
The  query  IntegerQ  checks  if  its  argument  is  an  integer  number. 

In[38]  :=  { IntegerQ [/] ,  IntegerQ[r] ,  IntegerQ[c] } 

Out[38]  =  {True,  False,  False} 

The  functions  Numerator  and  Denominator  extract  the  parts  of  a  rational  number. 

In[39]  :=  {  Numerator[r] ,  Denominator^] } 

Out[39]  =  {-137174210, 109739369} 

The  functions  Re  and  Im  extract  the  real  and  imaginary  parts  of  a  complex  number. 

In[40]  :=  {Re[c],Im[c]} 

Out[40]  =  {1,-2} 

In[41]  :=  Clear [i,rj,c] 


3.4  Forms  of  an  Expression 

FullForm  is  a  very  useful  function.  It  shows  what  Mathematica  really  thinks  about 
an  expression.  Use  it  often,  and  you  will  learn  a  lot.  For  example,  the  following 
expression  is  a  sum  of  4  terms,  one  of  which  is  the  number  —  1  multiplied  by  the 
symbol  z. 

In[42]  :=  FullForm [x+y  —  z  —  1] 

Out  [42]/ /FullForm  = 

Plus  [—  1 ,  x,  y,  Times  [—  1 ,  z] 

And  this  one  is  a  product  of  4  factors,  among  which  are  the  rational  number  2/3  and 
the  negative  power  z~l . 

In [43]  :=a  =  2*x*y/(3*z) 


In[44]  :=  FullForm[a] 

Out  [44]/ /FullForm  = 

Times  [Rational  [2 , 3] ,  x,  y,  Power  [z,  —  1  ]  ] 

Nevertheless,  the  functions  Numerator  and  Denominator  work  as  expected. 

In[45]  :=  {  Numerator^] ,  Denominator^/] } 

Out[45]  =  {2xy,3z} 

In[46]  :=  Clear  [a] 

We  have  already  handled  lists  many  times.  A  list  appears  to  be  just  the  function  List 
with  arguments — elements  of  the  list. 

In[47]  :=  FullForm[{x,y,z}] 

Out  [47]/ /FullForm  = 

List  [x,y,z] 

Any  Mathematica  command  can  be  written  as  a  function  with  arguments 
(sometimes,  it  can  also  be  written  in  some  other  way).  For  example,  assignment 
is  the  function  Set.  In  order  to  see  this,  we’ll  have  to  put  an  assignment  inside 
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the  function  Hold.  Otherwise  it  would  be  executed  immediately,  and  the  function 
FullForm  would  receive  only  the  result  returned  by  the  assignment — the  symbol  v. 

In[48]  :=  FullForm  [Hold  [«  =  x]\ 

Out[48]/ /FullForm  = 

Hold  [Set  [a,x]\ 

Here  is  a  rational  expression. 

In[49]  :=a  =  Together^/ (x+y)  +y/( x- 


Out[49] 


x2+y2 


(x-y)(x  +  y) 


Its  full  form: 

In[50]  :=  FullForm^/] 

Out  [50]/ /FullForm  = 

Times  [Power  [Plus  [v,  Times  [—  1 ,  y]  ] ,  —  1  ] ,  Power  [Plus  [v,  y] ,  —  1  ] , 
Plus  [Power  [x,  2] ,  Power  [y,  2]]] 

And  this  is  the  same  expression  as  a  tree. 

In[51]  :=  Tree  Form  [a] 


Out[51]//TreeForm  = 


In[52]  :=  Clear[a] 


Chapter  4 

Patterns  and  Substitutions 


Substitution  is  the  most  fundamental  operation  in  Mathematica.  Its  left-hand  side  is 
a  pattern.  In  a  given  expression,  all  subexpressions  matching  the  pattern  are  found 
and  replaced  by  the  right-hand  side  of  the  substitution. 


4.1  Simple  Patterns 

f[x]  with  a  specific  argument  x. 

In[l]  :=  {/M,/M}/-/M->*A2 

Outfl]  =  {x2,f\y\} 

f  with  an  arbitrary  argument. 

In[2]  :=  {/[*], 

Out[2]  =  {x2,y2} 

f  with  two  identical  (arbitrary)  arguments. 

In[3]  :=  {f[x,x],f[x,y]}/.f[x.,x.]->g[ x] 

Out[3]  =  {g[x]J[x,y\} 

An  example  of  a  more  complicated  pattern. 

M4]  :=  fW[AM,h\f[A]]/J\g[x^y\Mx^->F[x,y\ 

Out  [4]  =  F[f[x],y] 

f  with  an  argument  being  an  arbitrary  integer  number. 

In[5]  :=  {f[x],f[2]}/.f[x- Integer] - >j^ 2 

Out[5]  =  {f[x\,  4} 

In  fact,  such  a  form  of  an  arbitrary  argument  checks  its  head.  This  substitution 
applies  when  the  argument’s  head  is  g. 

^I6]  :=  {f[g[x,y]]J[h[xM]}/-f[x-g]~>xA2 

Out[6]  =  {g[x,y]2,f[h[x,y}}} 

And  this  one — when  the  argument  is  a  sum. 

In[7]  :=  {/[{x,y}],/[x+y]}/./[x_Plus]->xA2 

Out  [7]  =  {/[{x,y}],(x  +  y)2} 
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4  Patterns  and  Substitutions 


And  this  one — when  the  argument  is  a  list.  By  the  way,  note  what  happens  when  a 
list  is  being  squared. 

In[8]  :=  {/[{*, y}]  ./[* + y]  }/•  /[x-List]  ->**2 

Out[8]  =  {{x2 ,y2}  ,  f[x  +  y}} 

One  more  example. 

In[9]  :=  a  =  Sqrt[x]/Sqrt[y] 


Out[9]  = 


In[10]  :=  a/.  {Sqrt[v]— >w,Sqrt[v]— >r} 
Out  [10]  = 


Why  hasn’t  the  second  substitution  triggered? 

In[l  1]  :=  FuilForm[a] 

Out[l  1]/ /FullForm  = 

Times  [Power  [x,  Rational  [1 , 2]] ,  Power  [y,  Rational  [— 1,2]]] 
a  does  not  contain  y1/2,  only  y-1/2;  therefore,  the  substitution  y1/2 
work. 

Out[l  1]  =  Clear  [a 


v  does  not 


4.2  One-Shot  and  Repeated  Substitutions 

Here  is  an  expression. 

In[12]:=a  =  xA2+yA2 

Out  [12]  =x2+y2 

Let’s  increase  x  by  1  in  it.  This  example  demonstrates  that  a  substitution  is  not 
applied  repeatedly.  Mathematica  searches  for  subexpressions  matching  the  pattern 
(in  this  case  x)  in  the  expression  a.  After  finding  such  a  subexpression,  Mathematica 
replaces  it  by  the  right-hand  side.  The  result  of  such  a  replacement  is  not  searched 
again  for  subexpressions  matching  the  pattern. 

In[13]  :=a  =  a/.x—>x+ 1 
Out[13]  =  (1  -fx)2  -fy2 

A  list  of  substitutions  can  be  applied  to  an  expression.  They  are  all  applied  in 
parallel — Mathematica  searches  for  subexpressions  matching  some  pattern  from 
the  list  and  replaces  these  subexpressions  by  the  corresponding  right-hand  side. 
Therefore  two  symbols  can  be  interchanged  in  an  expression  in  this  simple  way. 
In[14]  :=a  =  a/,  {x—  >yyy— >x} 

Out  [14]  =  x2  +  (H-y)2 
In[15]  :=  Clear[a] 

The  operator  //.  (in  contrast  to  /.)  applies  a  substitution  repeatedly,  while  it  is 
applicable.  If  several  substitutions  are  applicable  to  some  subexpression,  Mathe¬ 
matica  first  applies  the  most  specific  one  (it  is  not  always  easy  to  determine  which 
substitution  is  more  specific  and  which  is  more  general;  in  simple  cases,  this  is 
clear). 


4.3  Products 
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In[16]  :=  fac[10] / /.  {fac[0] — >  1 , fac [n  _] 

Out  [16]  =  3628800 

By  the  way,  what  are  the  real  names  of  / 

In[17]  :=  Fu  11  Form  [Hold  [a/.. v—  »■]] 

Out  [17]/ /FullForm  = 

Hold  [Replace All  [a ,  Rule  [v,  y]  ]  ] 
In[18]  :=FullFonn[Hold[a//.Jc—  >y]\ 
Out[18]/ /FullForm  = 

Hold  [ReplaceRepeated  [a ,  Rule  [v,  y 


>n  *fac[n 

and  /  /  2 


-i]} 


4.3  Products 


Let’s  take  a  product. 

In[19]  :=  FullForm[a  =  2  *x*y*z] 

Out  [19]/ /FullForm  = 

Times[2,v,y,z] 

The  pattern  vy  is  considered  contained  in  this  product,  though  the  internal 
representation  of  a  does  not  contain  Times  [v,y]  explicitly. 

In [20]  :=a/.x*y—>z 

Out  [20]  =  2z2 

And  this  product  does  not  contain  vy. 

In[21]  :=  FullForm[a  =  2* xA2 * y * z] 

Out  [21]/ /FullForm  = 

Times  [2 ,  Power  [x,  2] ,  y,  z 
In[22]  :=a/.x*y—>z 
Out  [22]  =  2  x2yz 

This  product  contains  powers  of  x  and  y. 

In[23]  :=  FullForm[a  =  2  *xA2  *yA3  *  z] 

Out[23]/ /FullForm  = 

Times  [2,  Power[x,  2] ,  Power[y,  3] ,  z 

We  want  to  replace  each  product  of  powers  of  x  and  y  by  the  function  /  of  these 
powers.  Such  a  problem  occurs  very  often.  For  example,  we  want  to  integrate  some 
class  of  expressions,  and  we  know  the  result  of  integration  as  a  function  of  powers 
of  some  variables  (or  subexpressions). 

In [24]  :=  a/.xAn-*yAm-—> f[n.m\ 

Out  [24]  =  2z/[2,3] 


This  works  OK.  And  here? 

In [25]  :=  FullForm [«  =  2  *  jca2  *  y  *  z] 
Out[25]/ /FullForm  = 

Times  [2 ,  Power  [v,  2] ,  y,  z] 

In [26]  :=  a/.xAn  _ * yAm  > /[n. m] 

Out  [26]  =  2  x2yz 
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4  Patterns  and  Substitutions 


This  doesn’t  work.  The  product  a  does  not  contain  a  product  of  powers  of  x  and  y: 
the  symbol  y  is  not  in  the  argument  of  the  function  Power.  In  the  next  example  the 
substitution  works  again — as  we  have  seen,  Mathematica  considers  dividing  by  y  as 
multiplying  by  y_1 . 

In[27]  :=  FullForm[a  =  2  *xA2  *  z/y\ 

Out  [27]  / /FullForm  = 

Times  [2,  Power  [x,  2] ,  Power  [y,  —  1] ,  z] 

In [28]  :=a/.xAn-*yAm _=>/[n.m] 

Out[28]  =  2z/[2,  —  1] 

Let’s  return  to  the  previous  expression.  How  can  we  instruct  Mathematica  to 
consider  y  as  a  particular  case  of  the  pattern  “y  to  an  arbitrary  power”?  This  is  what 
an  optional  arbitrary  argument  m  _ .  is  for.  When  it  is  used  in  an  exponent,  its  default 
value  (which  is  used  when  there  is  no  power  at  all)  is  1 . 

In[29]  :=  FullForm  [c/  =  2* xA2 *y  *z] 

Out[29]/ /FullForm  = 

Times  [2 ,  Power  [x,  2] ,  y,  z 
In [30]  :=a/.xAn-.*yAm-.=>f[nfm] 

Out[30]  =  2zf[2, 1] 

In[31]  :=FullForm[a  =  2*x*y*z] 

Out[31]/ /FullForm  = 

Times[2,x,y,z] 

In  [32]  :=  a/.xAn-.  *yAm_.=>  f[n,m] 

Out  [32]  =  2z/[l,  1] 

So  far  so  good.  But  what  if  the  symbol  y  is  absent?  Will  Mathematica  consider  this 
as  a  particular  case  of  the  pattern  “y  to  an  arbitrary  power”  with  the  power  equal  0? 
It  will  not. 

In [33]  :=  FullForm [«  =  2  *xA2  *  z] 

Out[33]/ /FullForm  = 

Times  [2,  Power  [x,  2] ,  z] 

In[34]  :=  a/.xAii-.  *yAm_.— > f{nrm\ 

Out  [34]  =  2x2z 

The  following  method  will  work  always.  Let’s  collect  several  test  expressions  to 
a  list. 


In[35]  :=a  =  { 2  *  x  *  y  *  z,  2  *  xA2  *  y  *  z,  2  *  xA2  *  vA3  *  z,  2  *  xA2  *  z/\%  2  *  xA2  *  z, 


2*z} 


Out[35]  =  <{  2xyz,2x2yz,2x2y3z,  ^--^,2x2z,2z 


y 


The  method  is  as  follows.  Multiply  our  expression  by  /[ 0,0],  and  apply  a  list  of 
substitutions.  If  /  with  some  arguments  is  multiplied  by  an  arbitrary  power  of  x, 
then  the  first  argument  of  /  is  increased  by  this  power.  Of  course,  if  x  is  not  raised 
to  any  power,  we  want  to  use  the  default  power  equal  to  1 .  Powers  of  y  are  treated  in 
the  same  way.  We  need  to  use  the  repeated  substitution  / /. — after  one  substitution 
from  the  list  has  been  applied  (e.g.,  the  one  about  x),  we  want  the  other  one  to  be 
applied  to  the  result  (to  take  y  into  account). 


4.4  Sums 
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In [36]  :=s  =  {xAl _ .  *  f[n m _]— > f[n  +  L m\.yAI _ .  *  f[n _,/??_]— >/[n, /??  +  /]} 

Out[36]  =  — >•  /[/  -Tft,m],y/_'/[n_,ra_]  —>>/[«,/  + m]j 

In[37]  :=fl*/[0,0]//.ff 

Out[37]  =  {2z/[l ,  1] ,  2z/[2, 1] ,  2z/[2, 3] ,  2z/[2,  —  1] ,  2z/[2, 0] ,  2z/[0, 0] } 

In[38]  :=  Clear [a^s] 


4.4  Sums 


Substitutions  for  sums  are  similar  to  those  for  products.  They  are  used  much  more 
rarely.  Don’t  use  them  if  you  can  avoid  this. 

In[39]  :=FuilForm[a  =  x+y  +  z  +  2] 

Out[39]/ /FullForm  = 

Plus  [2  ,x,y,z] 

In[40]  :=a/.x+y—>z 
Out  [40]  =  2  +  2z 

In[41]  :=FuilForm[a  =  2*x+y  +  z  +  2] 

Out[41]/ /FullForm  = 

Plus  [2 ,  Times  [2 ,  x] ,  y ,  z 
In[42]  :=a/.x+y— >z 

Out  [42]  —  2  -\-  2x  y  ~\~  z 

This  substitution  replaces  a  sum  of  x  and  y  with  arbitrary  coefficients  by  the  function 
/  of  these  coefficients. 

In[43]  :=  FuilForm[a  =  2*x+ 3  *y +z  +  2] 

Out[43]/ /FullForm  = 

Plus  [2 ,  Times  [2 ,  x] ,  Times  [3 ,  y] ,  z 
In [44]  :=a/.n_*x+m_*y— >f[n^m\ 

Out[44]=2  +  z  +  /[2,3] 

In[45]  :=FullForm[a  =  2*x+y  +  z  +  2] 

Out  [45]/ /FullForm  = 

Plus  [2 ,  Times  [2 ,  x] ,  y,  z] 

In[46]  :=a/.n_*x+m_*y— >f[n^m] 

Out[46]  =  2-f2x-fy-fz 

In[47]  :=  FullForm [«  =  2  *  x  —  y  +  z  +  2] 

Out  [47]/ /FullForm  = 

Plus  [2 ,  Times  [2 ,  x] ,  Times  [  —  1 ,  y  ] ,  z] 

In[48]  :=  a/.n_*x+m_*y— >f[n1m] 

Out[48]=2  +  z  +  /[2,-l] 

Here  again  an  optional  arbitrary  argument  can  be  used.  When  it  is  used  as  a  factor, 
a  subexpression  is  considered  matching  this  pattern  even  if  there  is  no  such  a  factor, 
and  its  value  in  this  case  is  taken  to  be  1 . 
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In[49]  :=FullForm[a  =  2*x+;y  +  z  +  2] 

Out[49]/ /FullForm  = 

Plus  [2 ,  Times  [2 ,  x] ,  y,  z 
In[50l  :=aAft_.*x+m_.*y— >f\n,m] 

Out[50]=2  +  z  +  /[2,l] 

In [51]  :=FullForm[a  =  x+y  +  z  +  2] 

Out[51]/ /FullForm  = 

Plus  [2  ,x,y,z] 

In[52]  :=a/.ft_.*x-bm_.*y— >f[n1)m] 

Out  [5 2]  =  2  +  z  +  /[1 , 1] 

In[53]  :=  FullForm[a  =  x + z  +  2] 

Out[53]/ /FullForm  = 

Plus[2,x,z] 

In[54]  :=a/.n_.*x-|-fft_.*y= >f[n^m] 

Out  [54]  =  2  +  x  +  z 

And  here  is  our  method  which  always  works. 

In[55]  :=a  =  {x+y  +  z  +  2,2*x+y+z+2,2*x+3*y+z+2,2*x— y+z  +  2, 
x + z + 2,  z + 2} 

Out  [5  5]  =  {2+x+y  H-z,2  +  2xH-y +z,2  +  2xH-3y +z,2  +  2x— y  H-z,2+xH-z,2+z} 

In [5 6]  :=  s  =  {/  _ .  *  x + f[n  m  _] — > /[;?  +  /,  m] ,  /  _ .  *  y  + /[/? m  _] — > f\n}m  +  /] } 

Out[56]  =  {/[«_,m_]  +  x/_.  —>>/[/  +  n,m],/[n_,m_]  +  y/_.  — >  f[nj  +  m]} 

In[57]  :=fl+/[0,0]//.5 

Out[57]  =  {2  +  z  +  /[l,l],2  +  z  +  /[2,l],2  +  z  +  /[2,3],2  +  z  +  /[2,-l], 

2  +  £  +  /[1 , 0] ,  2  +  z  +  /[0, 0] } 

In[58]  :=  Clear[a,  s] 


4.5  Conditions 


Substitutions  which  apply  only  when  an  arbitrary  variable  satisfies  some  condition 
are  often  needed. 


In[59]  :=  {f[l.5],f[3/2]J[x/2]}/.f[xJNixmb&TO\->xA2 


Out[59]  =  2.25,  -  ,/ 


X 

L2 


But  this  method  is  not  very  general.  It  checks  a  condition  depending  on  a  single 
variable.  The  operator  / ;  can  be  applied  to  a  pattern  (or  its  part).  It  can  be  read  as 
“such  that.”  The  condition  in  it  can  depend  on  several  arbitrary  variables. 

In[60]  :=  s  =  {fac[0] — >  1 , fac[n  -Integer/ ; n  >0]  — >n*fac[n—  1]} 

Out [60]  =  {fac[0]  — >  l,fac[«_ Integer/ ;n  >0]  — ^ftfac[—  1  +n]} 

In[61]  :=  {fac[10],fac[—  10]}//.s 
Out  [61]  =  {3628800,  fac[- 10]} 

Internally,  this  operator  is  the  function  Condition. 

In[62]  :=  FullForm^] 

Out[62]/ /FullForm  = 

List  [Rule  [fac[0],  1], 


4.6  Variable  Number  of  Arguments 
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Rule  [fac  [Condition  [Pattern  [n,  B  lank  [Integer]  ] ,  Greater  [n,  0]]] , 

Times  [n ,  fac  [Plus  [—  1 ,  n\  ]  ]  ]  ] 

In[63]  :=  Clear  [s] 

One  common  case  is  when  you  want  to  replace  f[x\  by  g[v]  only  for  some 
values  of  v. 

In[64]  :=  f[a]  +  f[b]  +  f[c]/.f[x./ ;x  ==  a|  |.v  —  Z>]->g[x] 

Out  [64]  =  f[c\  +  g[a\  +g[b\ 


4.6  Variable  Number  of  Arguments 

A  pattern  can  involve  a  construct  which  matches  not  a  single  subexpression  but  an 
arbitrary-length  subsequence  of  arguments  of  a  function.  This  is  very  convenient  for 
working  with  functions  having  an  arbitrary  number  of  arguments.  Let’s  consider  an 
example.  The  function  /  has  any  number  of  arguments.  We  want  to  shuffle  them  in 
the  opposite  order.  First,  let’s  put  a  fence  at  the  end  of  the  argument  list. 

In[65]  :=a  =  /[x,y,z] 

Out[65]  =f[x,y,z] 

In[66]  :=  a  =  a/.  f[x ]—>/[*,  Fence] 

Out  [66]  =  f[x,y,z,  Fence] 

Now  we  take  the  arguments  from  the  left  one  by  one  and  throw  them  over  the  fence 
(placing  them  immediately  after  the  fence). 

In[67]  :=a  =  a//.f[x.,y..^ Fence, z—]->f\y, Fence, x,z] 

Out[67]  =  /[Fence,  z,y,x 

Now  the  fence  is  at  the  left,  and  the  arguments  are  after  it  in  the  opposite  order. 
What’s  left  is  to  remove  the  fence. 

In[68]  :=a  =  a/.f[ Fence, x .]—>/[ x] 

Out[68]  =f[z,y,x] 

Of  course,  this  method  only  works  when  the  symbol  Fence  is  not  present 
among  the  arguments.  Here  is  the  method  which  always  works.  Let  the  part  of  the 
arguments  which  has  not  yet  been  processed  be  in  the  first  list  and  the  processed 
part — in  the  second  one.  We  take  the  arguments  one  by  one  from  the  beginning  of 
the  first  list  and  move  them  to  the  beginning  of  the  second  one. 

In[69]  :=a  =  a/.f\x— ]->/[{*},{}] 

Out[69]  =  f[{z,y,x},{}} 

In[70]  :=a  =  a//.f[{x.,y — },  {z — }]->/[{>’}, {x»z}] 

Out  [70]  =/[{},  {x,y,z}] 

In[71]  :=a  =  «/./[{},  {*—}]->/[■*] 

Out[71  ]=f[x,y,z] 

In  addition  to  v _ (with  three  underscores),  which  means  an  arbitrary 

subsequence  of  arguments  of  a  function  (maybe  an  empty  one),  there  is  also  v__ 
(with  two  underscores) — an  arbitrary  nonempty  subsequence  of  arguments.  I  find 
the  first  construct  more  useful. 


Chapter  5 

Functions 


5.1  Immediate  and  Delayed  Assignment 

This  is  an  ordinary  (immediate)  assignment.  The  result  of  calculation  of  the 
right-hand  side  (in  this  case,  a  quadratic  polynomial)  is  assigned  to  the  variable  a. 
In[l]  :=a  =  Expand[(x+  1)A2] 

Out[l]  =  1  +  2x  +  x2 

And  this  is  a  delayed  assignment.  The  unevaluated  right-hand  side  (in  this  case,  an 
expression  with  the  function  Expand)  is  assigned  to  the  variable  b. 

In [2]  :=  b  :=  Expand[(x+  1)A2] 

Note  that  a  delayed  assignment  returns  no  value  (an  ordinary  assignment  returns 
the  result  of  calculation  of  its  right-hand  side).  The  difference  between  a  and  b  can 
be  seen  if  we  assign  something  to  the  variable  x.  In  the  first  case,  the  value  of  x  is 
substituted  into  the  quadratic  polynomial. 

In[3]  :=x  =  z  + 1;  a 

Out  [3]  =  1+2(1 +z)  +  (l+z)2 

In  the  second  case,  the  value  of  x  is  substituted  into  the  expression  with  the  function 
Expand,  and  then  this  expression  is  calculated. 

In[4]  :=  b 

Out[4]  =  4  +  4z  +  z2 

In[5]  :=  Clear 

The  real  name  of  the  operator  :=  is  SetDelayed. 

In[6]  :=  FullForm[Hold[a  :=  x]\ 

Out  [6]/ /FullForm  = 

Hold  [SetDelayed  [a ,  x]  \ 

Similarly,  in  addition  to  ordinary  substitutions  a—>b  (where  the  right-hand  side 
is  calculated  at  the  moment  the  substitution  is  defined),  there  are  delayed  substitu¬ 
tions  a  :>b  (where  the  substitution  keeps  the  right-hand  side  unevaluated,  and  it  is 
calculated  each  time  the  substitution  is  applied). 
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In[7]  :=  f[z+  l]/./[x_]->Expand[(x+  1)A2] 

Out  [7]  =  1+2(1 +z)  +  (l+z)2 

In[8]  :=  /[z+l]/./[x_] :  >Expand[(jc+  1)A2] 

Out  [8]  =  4  +  4  z  +  z2 


5.2  Functions 

Left-hand  side  of  an  assignment  can  be  a  pattern,  not  just  a  variable.  In  this  case, 
in  all  subsequent  calculations,  any  subexpression  matching  the  pattern  will  be  re¬ 
placed  by  the  right-hand  side  of  the  assignment.  This  can  be  canceled  by  the  com¬ 
mand  Clear.  A  pattern  can  contain  arbitrary  variables.  This  is  how  functions  are 
defined.  Here  is  an  example — a  function  /.  In  all  subsequent  calculations,  all  subex¬ 
pressions  of  the  form  f[x\  with  arbitrary  arguments  v  will  be  replaced  by  the  right- 
hand  side  (in  this  case,  a  quadratic  polynomial),  in  which  the  value  of  the  actual 
argument  is  substituted  for  v. 

In [9]  :=  f[x-]  ~  Expand[(x+  1  )A2] 

Out[9]  =  1  +  2x  +  x2 

And  this  is  another  function.  Its  body  is  an  unevaluated  expression  with  Expand. 
Expanding  brackets  will  take  place  each  time  the  function  g  with  some  argument  is 
calculated. 

In [10]  :=  g[x-]  :=  Expand[(x+  1)A2] 

Note  the  difference  between  them. 

In[ll]  :=  {/[z+l],g[z+l]} 

Out[ll]  =  {l  +2(1  +z)  +  (1  +z)2,4  +  4z  +  z2} 

In[12]  :=  Clear[ f,g] 


5.3  Functions  Remembering  Their  Values 

Let’s  consider  a  useful  trick — a  function  remembering  its  calculated  values.  If  it  is 
called  again  with  the  same  argument,  it  will  not  perform  calculations,  but  just  return 
the  remembered  result.  For  example,  take  the  factorial.  We  know  fac[0]. 

In[13]  :=  fac[0]  =  1 
Out[13]  =  1 

And  now  attention — the  main  trick.  A  delayed  assignment  to  the  pattern  fac  [n- 
(with  an  arbitrary  n).  And  what  do  we  have  in  the  right-hand  side?  An  immediate 
assignment  to  the  pattern  fac  [a]  (for  a  specific  n,  namely,  the  value  of  the  actual  argu¬ 
ment  with  which  the  function  fac  was  called).  What  happens  when  we  call  fac [10]? 
If  the  function  was  never  calculated  with  this  argument,  then  this  definition  for  an 
arbitrary  argument  will  be  used.  The  right-hand  side  with  10  substituted  for  n  will 
be  calculated,  namely,  an  immediate  assignment  fac  [10]  =  •  •  •.  Its  right-hand  side  is 
calculated  (it  is  the  factorial  of  10),  and  it  is  remembered  as  the  value  of  fac  [10]. 


5.4  Fibonacci  Numbers 


37 


The  immediate  assignment  returns  the  calculated  value  of  its  right-hand  side,  and 
this  value  becomes  the  result  of  the  function  call.  If  we  ask  Mathematica  to  calculate 
fac[10]  again,  then  this  specific  definition  for  fac[10]  (generated  during  the  first  cal¬ 
culation)  will  be  used,  and  not  the  general  definition  for  fac  [ft  _]. 

In[14]  :=  fac[ft  _]  :=fac[n]  =  ft  *  fac[/2  —  1] 

What  does  Mathematica  know  about  the  symbol  fac? 

In[15]  :=?fac 

Globaffac 
fac[0]  =  1 

fac[ft_]  :=  fac [ft]  =  nfac[n  —  1] 

Only  two  definitions — for  the  argument  0  and  for  an  arbitrary  argument.  Now  let’s 
calculate  the  factorial  of  10. 

In[16]  :=  fac[10] 

Out  [16]  =  3628800 

And  what  does  Mathematica  know  about  this  symbol  now? 

In[17]  :=?fac 

Globaffac 
fac[0]  =  1 

fac[l]  =  1 

fac  [2]  =  2 

fac  [3]  =  6 

fac  [4]  =  24 

fac  [5]  =  120 

fac  [6]  =  720 

fac  [7]  =  5040 

fac  [8]  =40320 

fac  [9]  =  362880 

fac[10]  =3628800 

fac [ft_]  :=  fac [n\  =  nfac[n  —  1] 

In  addition  to  the  general  definition,  we  see  also  specific  ones  for  all  integer  values  of 
the  argument  from  0  to  10.  If  we  ask  for  the  value  of  fac  for  one  of  these  arguments, 
then  the  corresponding  specific  definition  will  be  used,  and  the  calculation  will  not 
be  performed  again. 

In[18]  :=  Clear[fac] 


5.4  Fibonacci  Numbers 

This  method  is  useful  but  not  vital  for  the  factorial,  because  the  time  of  calculation 
of  fac  [ft]  grows  linearly  with  n.  For  Fibonacci  numbers  the  difference  is  crucial.  For 
a  naive  definition,  the  calculation  time  grows  exponentially.  This  means  you  will 
never  get  a  Fibonacci  number  with  a  large  n.  When  results  are  remembered,  the 
calculation  time  grows  linearly — the  result  for  each  value  of  the  argument  from  2  to 
ft  is  calculated  once. 
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In[19]  :=  fib[0]  =  fib[l]  =  1 

Out  [19]  =  1 

In[20]  :=  fib[w  _]  :=  fib[n]  =  fib[n  —  1]  +  fib[n  —  2] 

In[21]  :=?fib 

Global'fib 
fib[0]  =  1 

fib[l]  =  1 

fib[n  _]  :=  fib [w]  =  fib[«  —  1]  +  fib[«  —  2] 

In[22]  :=  fib[10] 

Out  [22]  =  89 

In[23]  :=?fib 


Global'fib 
fib[0]  =  1 

fib[l]  =  1 

fib  [2]  =  2 

fib  [3]  =  3 

fib  [4]  =  5 

fib  [5]  =  8 

fib  [6]  =  13 

fib  [7]  =  21 

fib  [8]  =  34 

fib  [9]  =  55 

fib[10]  =  89 

fib[n  _]  :=  fib [w]  =  fib[«  —  1]  +  fib[«  —  2] 

In [24]  :=  Clear[fib] 


5.5  Functions  from  Expressions 

In  most  cases,  a  delayed  assignment  is  used  when  defining  a  function.  But  there 
are  situations  when  an  immediate  assignment  is  needed.  Here  is  one  of  them. 
Suppose  you  have  derived  an  expression  a  containing  a  symbol  x  as  a  result  of 
some  calculation. 

In[25]  :=a  =  D[Expand[(x  +  l)A3],x] 

Out[25]  =  3  +  6x  +  3x2 

Now  you  want  to  calculate  it  many  times  with  different  values  of  x.  This  can  be  done 
by  substitutions. 

In[26]  :=  a/.x—>z+ 1 

Out  [26]  =  3  +  6(1  +z)  +  3(1  +  z)2 

But  this  is  not  very  convenient.  It  would  be  nice  to  have  a  function  /  with  the 
argument  x  which  is  given  by  the  calculated  expression  a.  Such  a  function  can  be 
defined  by  an  immediate  assignment.  The  calculated  value  is  substituted  for  a  in 
the  right-hand  side. 
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In[27]  :=  /[x_]  =  a 

Out  [27]  =  3  +  6v  +  3v2 

In[28]  :=/[z+l] 

Out  [28]  =  3  +  6(1  +  z)  +  3(1  +  z)2 

In[29]  :=  Clear  [a,/] 


5.6  Antisymmetric  Functions 


It  is  often  useful  to  give  a  partial  definition  of  a  function.  To  this  end  we  write 
not  just  a  function  with  all  arguments  being  arbitrary  but  a  more  restrictive  pattern 
in  the  left-hand  side  of  an  assignment.  Then,  if  the  values  of  the  actual  arguments 
match  the  pattern,  the  function  is  calculated  (i.e.,  replaced  by  the  right-hand  side 
of  the  assignment).  Otherwise  the  function  remains  unevaluated.  Here  is  a  simple 
example.  Let’s  define  an  antisymmetric  function  of  two  arguments.  If  the  arguments 
are  equal,  it  vanishes. 

In[30]  :=  f[x-}x _]  :=  0 

If  they  are  not  equal,  we  have  to  decide  if  they  need  to  be  interchanged.  The 
expressions  f[x,y]  and  f[y,x\  should  reduce  to  either  the  first  form  or  the  second 
one,  for  any  x  and  y.  It  does  not  matter  to  which  form,  as  long  as  the  result  is 
always  the  same.  To  this  end  the  function  OrderedQ  is  useful.  Its  argument  is  a 
list.  It  returns  True  if  the  list  is  ordered,  i.e.,  each  element  is  “greater  than  or  equal 
to”  the  previous  one  in  the  sense  of  some  internal  ordering  Mathematica  uses  for 
expressions.  Details  of  this  ordering  are  not  important. 

In[31]  :=  {OrderedQ[{jc,  v}] ,  OrderedQ[{\\  jc}] ,  OrderedQ[{jc, *}] } 

Out[31]  =  {True,  False,  True} 

Now  it  is  easy  to  write  a  substitution  which  interchanges  the  arguments  if  they  are 
not  properly  ordered. 

In[32]  :=/[x_,y_]/;Not[OrderedQ[{^y}]]  :=  -f\y9x] 

In[33]  :=  {f[a,a\J[a,b\J[b,a\} 

Out[33]  =  {0  ,f[a,b],-f[a,b]} 

In[34]  :=  {f[a  +  b}a  —  b]}f[a  —  b^a+b]} 

Out[34]  =  {  —f\a  —  b,  a  +  b\ ,  f[a  —  b,  a  +  b\ } 

In[35]  :=  Clear[/] 

Of  course,  a  symmetric  function  can  be  defined  similarly.  An  odd  function  of  a 
single  argument  can  be  defined  in  the  same  way. 

In[36]  :=  /[ 0]  =  0 

Out  [3  6]  =  0 

/;Not[OrderedQ[{— x,jc}]]  :=  —  /[— x] 

J[a]J[~a]} 

Out[38l  =  \0,f\a],  —  f\a}} 

In[39  \:={f[a-b],f[b-a}} 

Out[39]  =  {-f[-a  +  b],f[-a  +  b}} 

In[40]  :=  Clearl/] 

Of  course,  an  even  function  can  be  defined  similarly. 


In 

37 

•  • 

II 

j _ , 

In 
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:=  {/[ 0 
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5.7  Functions  with  Options 

You  have  undoubtedly  noted  that  many  Mathematica  functions  (e.g.,  Plot)  have 
options.  They  can  be  specified  in  any  order;  each  option  is  given  by  a  substitu¬ 
tion  with  its  name  in  the  left-hand  side  and  its  value  in  the  right-hand  side.  If  they 
are  not  given,  their  default  values  are  used.  Suppose  you  want  your  own  function  / 
to  have  options.  This  can  be  done  in  the  following  way.  Let’s  assign  a  list  of  sub¬ 
stitutions  giving  default  values  of  all  options  to  Options  [/].  Define  the  function  / 

with  some  mandatory  arguments  and  an  arbitrary  sequence  of  arguments  opts _ 

(it  may  be  empty).  At  the  point  in  the  function  body  where  you  need  the  value  of 
the  option  optl  use  optl/.  {opts}/.  Options [/].  The  operations  /.  are  executed  left 
to  right.  Therefore,  if  the  user  has  included  a  substitution  optl  — >  •  •  •  among  the 
arguments,  the  left  /.  will  trigger,  and  the  result  will  be  some  value  which  contains 
no  option  names;  the  right  /.  will  not  change  it.  If  the  user  has  not  given  such  a 
substitution,  the  left  /.  will  do  nothing,  and  the  right  one  will  replace  optl  by  the 
default  value  of  this  option. 

In[41]  :=  Options[/]  =  {optl— >l.opt2— >2} 

Out[41]  =  {optl  l,opt2  2} 

In[42]  :=  f[x opts _ ]  :=  g[\\ optl /.  {opts} /.  Options[/] , 

opt2/.  {opts} /.  Options[/]] 

In[43]  :=  {/W,/[a,opt2— >0],/[a?opt2— >&?optl— >c]} 

Out  [43]  =  {g[a,\,2],g[a,\,0],g[a,c,b]} 

In[44]  :=  Clear [/] 

In  recent  versions  of  Mathematica  this  can  also  be  written  as  follows: 

In[45]  :=/[x_,OptionsPattem[/]]  :=  g[x,  Option Value[opt  1  ] ,  Option Value[opt2]] 

In [46]  :=  Options [/]  =  {optl— >l.opt2— >2}; 

In[47]  :=  {/[a]  J[a,  opt2-  >0]  ,f[a,  opt2- >Z>,  opt  1  -  >c\ } 

Out  [47]  =  {g[a,l,2},g[a,l,0},g[a,c,b]} 

In[48]  :=  Clear[/] 


5.8  Attributes 

A  function  can  have  attributes  which  affect  simplification  of  expressions  with  this 
function.  The  attribute  Flat  removes  nested  function  calls  (e.g.,  Plus  and  Times  have 
this  attribute). 

In[49]  :=  Attributes!/*]  =  {Flat} 

Out[49]  =  {Flat} 

In[50]  :=  f[x,f\y,z],u] 

Out  [50]  =f[x,y,z,u] 

The  attribute  Orderless  means  that  the  function  is  symmetric  in  all  arguments,  and 
Mathematica  may  interchange  them  at  will  (Plus  and  Times  have  also  this  attribute). 


5.9  Upvalues 
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In[51]  :=  Attributes[/]  =  {Orderless} 

Out[51]  =  {Orderless} 

In[52]  :=  {f[x,y, z],f[z,x,y],f\y, z,x] } 

Out  [5  2]  =  {f[x,y,z],f[x,y,z],f[x,y,z]} 

The  attribute  Listable  means  that  if  the  first  argument  is  a  list,  then  the  function  is 
applied  to  each  element,  and  the  list  of  results  is  returned  (Plus  and  Times  have  this 
attribute,  too). 

In[53]  :=  Attributes!/]  =  {Listable} 

Out  [53]  =  {Listable} 

In[54]  :=  /[{x,y,z}] 

Out  [54]  =  {f[x\,f[y\J[z]} 

In[55]  :=/[{x,y,z},a] 

Out[55]  =  {f[x,a],f\y,a],f[z,a}} 

There  exist  a  few  attributes  more.  Of  course,  a  function  can  have  several  attributes  at 
once.  The  command  Clear [/]  removes  only  substitutions  for  /  (with  any  arguments), 
but  not  its  attributes.  In  order  to  remove  attributes  too,  use  Clear  All. 

In[56]  :=  ClearAll[/];  Attributes!/] 

Out[56]  =  {} 


5.9  Upvalues 


In 

57 

:=/ 

*-]  */b- 

In 

i - 1 

00 

in 

* _ i 

:=/ 

;(x+y)A2 

Suppose  we  want  to  define  a  function  /  such  that  f[x\  */[y]  is  replaced  by  f[x  +  y\ 
for  arbitrary  v  and  y.  This  can  be  done  by  the  assignment  f[xJ\  */[y_]  :=  f[x  +  y\. 
This  definition  will  be  associated  with  the  function  Times;  Mathematica  will  have 
to  check  it  each  time  it  multiplies  something,  i.e.,  very  often,  and  performance  will 
degrade.  It  is  possible  to  associate  this  definition  with  the  function  /  instead.  Then 
it  will  be  used  only  when  processing  a  product  containing  at  least  one  function  /. 

A  :=  /[Expand^ +y]] 

*/[(x-;y)A2]  *f\xA2]  *g\yA2] 

Out[58]  =  /  [3x2  +  2y2]  g  [/] 

Here  the  left-hand  side  is  Times  [/[v  _] ,  f[y  _]] ,  and  the  definition  is  associated  with  /. 
If  we  want  a  definition  for  Times  [f[x  -] ,  §  [y  -]  ] ,  we  can  associate  it  with  either  /  or  g. 

In[59]  :=//  :/[*_]  *g[y_]  := /[Expander -y]] 

In[60]  :=/[(* +y)A2]  */[(x-y)A2]  */[xA2]  *^|yA2] 

Out [60]  =  /  [3.v2  +y2] 

In[61]  :=?/ 

Global'/ 

f[x-]f[ y-]A  :  =  / [Expand [x  +  y]] 

//  :flx-]g[y-]  :=  / [Expand [x  —  y]] 

When  processing  an  expression  /[gl[. .  .],g2[. .  .],g3[. . .]],  Mathematica  uses 
definitions  associated  with  /  and  also  definitions  associated  with  gl,  g2,  g3,  and 
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having  the  form  /[...]  :=  •••  ( upvalues  of  gl,  g2,  g3).  It  does  not  look  deeper, 
into  arguments  of  gl,  g2,  and  g3 — this  would  be  too  inefficient.  In  addition  to  the 
delayed  assignments  A  :=  and  //  :  lhs  :=  rhs  there  are  also  immediate  assignments 
A  =  and  //  :  lhs  =  rhs. 

In [62]  :=  Clear [/] 


Chapter  6 

Mathematica  as  a  Programming  Language 


6.1  Compound  Expressions 


A  compound  expression  consists  of  several  expressions  separated  by  the  operator 
They  are  calculated  left  to  right.  The  value  of  a  compound  expression  is  the  value 
of  the  last  (rightmost)  expression.  The  values  of  all  the  other  expressions  are  thrown 
away;  they  are  calculated  only  for  side  effects.  The  operator  ;  has  a  low  priority, 
so  that  it  is  often  necessary  to  put  a  compound  expression  inside  brackets.  The  last 
expression  may  be  empty.  Its  value  (and  hence  the  value  of  the  compound  expres¬ 
sion)  is  the  symbol  Null  which  is  not  printed.  Therefore,  if  you  want  to  suppress 
printing  of  the  result  of  some  calculation  (e.g.,  because  it  is  lengthy),  put ;  after  it. 


=  fac[0]  =  1; 

=  fac  ft_]  :=  ( Print [”n=”, it];  n  * fac[tt  —  1]) 
=  fac[4] 


n=4 


n=3 

n=2 


n=l 


Out[3]  =  24 

In[4]  :=  Clear[fac] 
In[5]  :=  Null 
In[6]  :=  FullForm[x;] 

Out  [6]/ /FullForm  = 
Null 


In[7]  :=  Full  Form  [Hold  [a;/?]] 

Out  [7]/ /FullForm  = 

Hold[CompoundExpression[a,  b}\ 


A.  Grozin,  Introduction  to  Mathematica®  for  Physicists ,  Graduate  Texts  in  Physics, 

DOI  10.1007/978-3-319-00894-3—6,  ©  Springer  International  Publishing  Switzerland  2014 
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6.2  Conditional  Expressions 

If 

In[8]  :=  del[x_,  v_]  :=  lf[.v  ==  y,  1,0] 

In[9]  :=del[a,a] 

Out  [9]  =  1 
In[10]  :=  del[l,2] 

Out  [10]  =  0 

When  Mathematica  cannot  determine  if  the  condition  is  true,  a  conditional 
expression  is  returned  unevaluated.  If  such  a  possibility  will  appear  later,  an 
unevaluated  If  will  be  simplified. 

In[ll]  :=  u  =  dtl[a1b\ 

Out[l  1]  =  lf[a  ==  £>,1,0] 

In [12]  :=a  =  b  =  x;  u 
Out  [12]  =  1 

And  what  to  do  if  several  actions  should  be  performed  in  the  branches  of  If?  Use 
compound  expressions,  of  course!  The  priority  of  the  operator;  is  higher  than  that 
of,  (which  separates  function  arguments,  in  particular,  those  of  If). 

In[13]  :=  /[ x_]  :=  If[x  >  0,Print[”x>0”];  1, Print [”x<=0”];  0] 

In[14]:=/[1] 

x>0 

Out  [14]  =  1 

In[15]  :=  C\tar[a}b}u}dtl}f\ 


Which 


This  is  a  choice  with  many  branches.  Arguments  of  the  function  Which  form  pairs: 
a  condition  and  a  result.  The  conditions  are  evaluated  left  to  right.  As  soon  as  a 
true  one  is  found,  the  corresponding  result  is  evaluated  and  returned.  Often  (but 
not  always)  the  last  condition  is  True;  the  corresponding  result  is  returned  when 
none  of  the  previous  conditions  is  satisfied.  When  Mathematica  cannot  decide  if  the 
conditions  are  true,  the  function  Which  returns  unevaluated. 


In 

16 

:=  sign 

In 

17 

:=  sign 

Out[17]  =  1 

In 

18 

:=  sign 

In 

19 

:=  sign 

x_]  :=Which[x>0,l,x<0,  — 1] 
0.1] 


Out[19]  =  Which[a  >  0,  l, a  <  0,  —  1] 

In [20]  :=  Clear[sign] 
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Conditions 

What  can  be  used  as  conditions  in  If  and  Which?  The  operator  ==  returns  True  if  its 
left-hand  side  and  right-hand  side  are  the  same  expression.  Let’s  stress:  mathemati¬ 
cally  equivalent  expressions  written  in  different  forms  don’t  qualify.  If  the  left-hand 
side  and  the  right-hand  one  are  not  identical,  this  operator  returns  unevaluated.  It  is 
used  for  writing  equations,  for  example,  for  the  function  Solve. 

In[21]  :=  {a  ==  aui  ==  b} 

Out  [21]  =  {True,  a  —  b} 

In  contrast  to  this,  the  operator  ===  returns  False  if  its  arguments  are  not  identical 
(even  if  they  are  mathematically  equivalent). 

In [22]  :=  { a  ===  a,  a  ===  b} 

Out[22]  =  {True,  False} 

Not  [a  ==  b\  is  written  as  a\=b ,  and  Not  [a  ===  b\  as  a=\=b. 

The  function  NumberQ  checks  if  its  argument  is  a  number  (integer,  rational,  real, 
complex). 

In[23]  :=  {  NumberQ[3. 1 4] ,  NumberQ[Pi] } 

Out  [23]  =  {True,  False} 

The  function  NumericQ  returns  True  also  for  symbolic  mathematical  constants. 

In [24]  :=  {NumericQ[3. 14], NumericQ[Pi] } 

Out  [24]  =  {True,  True} 

The  function  FreeQ  returns  True  if  its  first  argument  contains  no  subexpressions 
given  by  the  second  argument.  It  is  often  used  to  check  if  an  expression  contains  a 
given  symbol. 

In[25]  :=  {FreeQ[Sin[a  +  b] ,  a] ,  FreeQ [S in [Z?  +  c] ,  a] } 

Out[25]  =  {False,  True} 

The  function  MatchQ  checks  if  the  expression — its  first  argument —  matches  the 
pattern,  its  second  argument.  When  designing  a  system  of  substitutions,  use  this 
function  often  in  order  to  check  if  your  ideas  about  the  structure  of  expressions 
agree  with  those  of  Mathematica. 

In [26]  :=  MatchQ[x  2,  £/_  />_] 

Out  [26]  =  True 

In[27]  :=  MatchQfl  jx.  a  -Ab  _] 

Out  [27]  =  True 

In[28]  :=MatchQ[x,a_AZ>_] 

Out[28]  =  False 


Switch 

The  function  Switch  starts  from  evaluating  its  first  argument.  All  the  remaining 
arguments  form  couples:  a  pattern  and  a  result.  The  first  argument  is  matched  against 
the  patterns  from  left  to  right.  As  soon  as  a  match  is  found,  the  corresponding  result 
is  evaluated  and  returned.  Often  (but  not  always)  the  last  pattern  is  (or  just  _ 
because  we  don’t  need  the  value  of  x). 
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In[29]  :=  /[x_]  :=  Switch [a\  .Plus,  ”A  sum”,  .Times,  ”A  product”,  _, 
’’Neither  a  sum  nor  a  product”] 

In[30]  :=f[a  +  b] 

Out[30]  =  A  sum 
In[31]  :=  f  [a* b\ 

Out  [31]  =  A  product 
In[32]  :=  f[aAb\ 

Out  [3  2]  =  Neither  a  sum  nor  a  product 

In[33]  :=  Clear[/] 


6.3  Loops 

Do 

This  loop  is  very  convenient  to  those  pupils  who  were  ordered  by  a  teacher  to  write 
“I  shall  behave  well”  100  times. 

In[34]  :=  Do[Print[”OK”], {4}] 

OK 

OK 

OK 

OK 

In  this  loop  the  parameter  varies  from  1  to  an  upper  limit. 

In[35]  :=Do[Print[xAi],{i,4}] 

x 


And  here — from  a  lower  limit  to  an  upper  one. 

In[36]  :=Do[Print[xAi],{i,0,4}] 

1 

x 


And  now  with  a  given  step. 

In[37]  :=Do[Print[xAi],{i,0,4,2}] 
1 


This  loop  takes  the  elements  of  a  list. 

In[38]  :=  Do[Print[xAi]»{i»{°»  M}}] 
1 
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While 

While  the  list  is  not  empty,  we  print  and  remove  its  first  element. 
In [39]  :=  /  =  {aj?,c}; 

In[40]  :=  While[/!={},Print[First[/]];  /  =  Rest[/]] 

a 

b 

c 

In[41]  :=  l 
Out[41]  =  {} 

In [42]  :=  Clear [/] 


For 


This  is  a  C  style  loop.  First  the  initialization  (the  first  argument)  is  executed. 
If  the  condition  (the  second  argument)  is  satisfied,  then  the  loop  body  (the  fourth 
argument)  is  executed.  Then  the  increment  (the  third  argument)  is  performed.  The 
condition  is  checked  again,  and  so  on. 

In [43]  :=  For[i  =  0,  i  <  5,  i + +,  Print |xA/]] 

1 


x 

x 

X 

X 


2 

3 

4 


In[44]  :=  i 

Out  [44]  =  5 

A  loop  running  through  several  parameters  (or  data  structures)  in  parallel  can  be 
easily  written. 

In[45]  :=  For[i  =  0  ;j  =  1  ,i+j  <  20  ,i++;j*  =  2,Print[xAi+yA/]] 


i  +y 

x  +  y2 
x2+y4 
x3  +y8 

In[46]  :=  Clear[/,7'] 


6.4  Functions 

The  function  Function  returns  an  anonymous  function.  Its  first  argument  is  a  formal 
parameter  (or  a  list  of  formal  parameters),  and  the  second  one  is  an  expression  con¬ 
taining  these  formal  parameters.  When  the  function  is  called,  the  actual  parameters 
are  substituted  for  the  formal  ones  in  this  expression,  and  the  result  of  its  evaluation 
is  returned  as  the  value  of  the  function.  A  note  for  experts:  the  function  Function 
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is  a  A -expression.  Of  course,  an  anonymous  function  can  be  assigned  to  a  variable. 
This  is  similar  to  a  function  defined  by  /[x_]  :=•••,  but  more  efficient.  The  usual 
method  of  assigning  a  function  body  to  a  pattern  is  more  general,  because  it  is  pos¬ 
sible  to  construct  a  function  which  is  defined  only  for  arguments  which  satisfy  some 
condition  (such  a  function  returns  unevaluated  if  the  conditions  are  not  satisfied). 
This  is  not  possible  in  the  case  of  Function. 

In [47]  :=  /  =  Function [jc,jc  2] 

Out [47]  =  Function  [a,  a2] 

An  anonymous  function  can  be  just  applied  to  some  arguments. 

In[48]  :=  Funcfion[{A.v} .  aa2  +  vA3]  [a, b] 

Out[48]  =a2  +  b3 

The  function  Map  applies  the  function  given  by  its  first  argument  to  each  element 
of  the  list  given  by  the  second  argument  and  returns  the  list  of  results. 

In[49]  :=Map[ f,{a,b,c}\ 

Out[49]  =  \a2,b2,c 2} 

In[50]  :=  Clear[/] 

An  anonymous  function  can  be  the  first  argument  of  Map.  Any  function  with  argu¬ 
ments  (e.g.,  Plus)  can  be  the  second  argument,  not  just  a  list.  The  function  given 
by  the  first  argument  is  applied  to  each  argument  of  the  expression — the  second 
argument.  An  expression  having  the  same  Head  (as  the  second  argument)  and  the 
calculated  results  is  constructed  and  returned. 

In[5 1]  :=  Map  [Function [a,  aa  2] ,  a  +  b  +  c) 

Out[5 1]  =  a2  +  b2  +  c2 

The  function  Apply  [/,/]  applies  /  to  the  list  of  arguments  /;  this  simply  means 
that  the  Head  of  /  is  replaced  by  /. 

In[52]  :=  Apply [/,  {a,b,c}\ 

Out  [5 2]  =  /[<?,/?,  c] 

In  [5  3]  :=  Apply  [Times,  a  +  b  +  c\ 

Out[53]  =  abc 

The  first  argument  of  the  function  Select  is  a  list.  It  returns  the  list  of  those 
elements  which  satisfy  the  condition  given  by  the  second  argument.  In  order  to 
avoid  inventing  names  for  such  disposable  things,  anonymous  functions  are  often 
used  as  the  second  argument. 

In[54]  :=  Select [{ 1 , 5, 3, 6} ,  Function[x,x  >4]] 

Out  [5  4]  =  {5,6} 


Function  Generator 

Here’s  an  interesting  example.  The  function  Adder  has  a  formal  parameter  n  and  re¬ 
turns  a  function  which  adds  n  to  its  argument,  that  is,  Adder  is  a  function  generator. 
In[55]  :=  Adder  =  Function[n, Function^, x+n]] 

Out  [5  5]  =  Function  [n ,  Function  [a,  a  -j-  n]  ] 

Specific  functions  can  be  obtained  from  it.  This  one,  for  example,  adds  2  to  its 
argument. 
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In[56]  :=  Add2  =  Adder[2] 

Out  [5  6]  =  Function  [v$,x$  +  2] 

In[57]  :=  Map[Add2,  {3,x}] 
Out  [57]  =  {5,2  +  x} 

In[58]  :=  Clear  [Add2,  Adder] 


6.5  Local  Variables 

When  writing  a  function  which  can  be  used  as  a  black  box  by  a  user,  it  is  crucial  to 
use  local  variables.  Assigning  a  value  to  a  local  variable  does  not  change  the  global 
one  with  the  same  name  (which  can  store  some  value  precious  for  the  user).  To  this 
end  the  function  Module  is  used.  Its  first  argument  is  a  list  of  local  variables. 

In[59]  :=  x  =  1 

Out[59]  =  1 

In[60]  :=  Module[{.v},.v  =  2;x\ 

Out[60]  =  2 
In[61]  :—x 
Out  [61]  =  1 
In [62]  :=  Clearer] 

Coding  functions  like  this  means  inviting  big  troubles. 

In[63]  :=/  =  Fimction[{a,&},x  =  a;x*&] 

Out[63]  =  Function[{a,/?},v  =  a\xb\ 

In[64]  :=  f[c9x] 

Out  [64]  =  c 2 
In[65]  :=  x 
Out[65]  =  c 
In[66]  :=  Clear[/,.v] 

This  is  much  better. 

In [67]  :=  /  =  Function[{a,&},Module[{jt  =  a}«x*b]\ 

Out  [67]  =  Function[{a,/?},Module[{v  =  a},xb]\ 

In [68]  :=  f[c,x] 

Out[68]  =  cx 
In[69]  :=  x 
Out[69]  =  v 

In[70]  :=  Clear[/] 

What  happens  if  a  local  variable  escapes  from  its  scope?  We  can  see  that  Mathe- 
matica  implements  local  variables  in  the  most  trivial  way — by  renaming. 

In[71]  :=  Module[{.v},.v] 

Out  [71]  =  x$103 

The  function  Block  introduces  another  kind  of  local  variables.  As  you  value  your 
life  or  your  reason  keep  away  from  the  function  Block.  Especially  in  those  dark 
hours  when  the  powers  of  evil  are  exalted. 
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Local  Constants 

Local  variables  which  cannot  be  changed  after  initialization  can  be  introduced.  This 
is  done  by  the  function  With.  Such  local  constants  can  be  considered  temporary 
notations  introduced  to  make  writing  a  single  expression  easier. 

In[72]  :=  x  =  1 
Out  [7  2]  =  1 

In[73]  :=  With[{x  =  a+ 1 } , Print [jta 2] ] 

Out[73]  =  (1  +a)2 

In [74]  :=  x 
Out  [74]  =  1 
In[75]  :=  Clear[.v] 


6.6  Table 


The  function  Table  constructs  a  list  of  values  of  an  expression  where  a  parameter 
varies  in  a  given  way  (like  in  the  Do  loop). 

In [76]  :=  Table[0,  {4}] 

Out  [7  6]  =  {0,0, 0,0} 

In[77]  :=Table[xA/,{i,4}] 

Out  [77]  =  {x,x2,x3,x4} 

In[78]  :=  Table[xA/,  {i,  0,4}] 

Out[78]  =  {l,x,x2,x3,x4} 

In[79]  :=  Table[xAi,  {i,  0, 4, 2}] 

Out[79]  =  {l,x2,x4} 

In[80]  :=  Table[xAi,  {i,  {0, 1,4}}] 

Out[80]  =  {l,x,x4} 

Let’s  turn  the  list  into  a  product. 

In[81]  :=  Table  [x + /,  {/\ 0. 4}]/.  List— >Times 
Out[81]  =  x(l  +x)(2  +  x)(3  +x)(4  +  x) 


6.7  Parallelization 

Now  most  computers  have  multi-core  processors.  The  function  Parallelize  tries  to 
calculate  its  argument  faster  by  starting  several  Mathematica  kernels  and  ordering 
them  to  calculate  parts  of  the  expression  and  then  collecting  these  parts  together. 

In[82]  :=  Parallelize[Table[$KernelID,  {ft,  0,7}]] 

Out[82]  =  {4, 4, 3, 3, 2, 2, 1, 1} 

($KernelID  is  the  number  of  the  kernel  in  which  a  particular  list  element  has  been 
evaluated).  In  addition  to  Table,  it  can  handle  Map[/, {...}]  (or/[{...}]  where  / 
is  a  Listable  function)  and  some  other  cases.  Note  that  the  slave  Mathematica 
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kernels  started  by  Parallelize  don’t  know  definitions  made  in  the  master  process; 
only  built-in  functions  can  be  used.  If  you  need  a  user-defined  function  /  to  be 
available  in  slave  processes,  you  should  explicitly  distribute  it. 

In[83]  :=/[n_]  :=Integrate[xA^*Sin[x],{x?0,Pi}] 

In[84]  :=  DistributeDefinitions[/] 

Out[84]  =  {/} 

In[85]  :=  Paral  lei  ize  [Table  [{f[n] ,  $  Kernel  ID},  {n,  0,7}]] 

Out[85]  =  {{2,4},{7T,4},  {— 4  +  7T2,3}  ,  {7T  (— 6-f-  7T2)  ,3}, {48-  12/r2  + 7T4,2} , 
{tt  (120  —  20tt2  H-  tt4)  ,2}  ,  {  —  1440  +  360tt2  -  30tt4  +  tt6,  1 } , 

7 1  (-5040  +  840tt2  -  42tt4  +  tt6)  ,  1 }  } 

In[86]  :=  Clear[/] 


6.8  Functions  with  an  Index 

Something  like  an  array  of  functions  can  be  constructed.  Let  /[  1]  be  the  function 
adding  1  to  its  argument  and  /[ 2] — the  function  adding  2  to  its  argument;  f[n\  is 
undefined  for  other  values  of  n. 

In[87]  :=  /[  1]  =  Function[x,x+ 1] 

Out[87]  =  Function[v,v+  1] 

In[88]  :=/[ 2]  =  Function [a\x  -f  2] 

Out[88]  =  Function[v,v  +  2] 

In[89]  :=  {f[l][a],f[2][a],f[n][a}} 

Out[89]  =  { 1  +  a,  2  +  a,  f[n\  [a] } 

In[90]  :=  Clear[/] 


6.9  Hold  and  Evaluate 

Assignment 

Assignment  does  not  evaluate  its  left-hand  side.  This  is  natural:  the  value  of  the 
right-hand  side  is  assigned  to  the  variable  given  by  the  left-hand  side,  not  to  its 
value. 

In[91]  \—a  —  x 

Out  [91]  =  x 
In [92]  :=  a  =  y 
Out[92]  =  y 
In[93]  :=  a 
Out[93]  =  y 
In[94]  :=  x 
Out[94]  =  x 
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The  attribute  HoldFirst  is  responsible  for  this. 

In[95]  :=  Attributes  [Set] 

Out[95]  =  {HoldFirst,  Protected,  SequenceHold} 


Evaluate 

It  is  possible  to  assign  a  value  to  the  value  of  the  left-hand  side.  To  this  end  the 
function  Evaluate  is  used. 

In [96]  :=  a  —  x 
Out[96]  =  v 

Iu[97]  :=  Evaluate^]  =  y 

Out  [97]  =  y 

In[98]  :=  x 

Out[98]  =  y 

In[99]  :=  a 

Out[99]  =  y 

In[100]  :=  Clear [.v];  a 

Out[100]  =  x 

In[101]  :=  Clear[a] 


Delayed  Assignment 


Delayed  assignment  does  not  evaluate  also  its  right-hand  side.  The  attribute  HoldAll 
is  responsible  for  this. 

In[102]  :=  Attributes[SetDelayed] 

Out[102]  =  {HoldAll,  Protected,  SequenceHold} 

You  can  use  these  attributes  for  your  functions,  too. 

In[103]  :=  x  =  1;  y  =  2;  z  =  3; 

In  104  :=  Attributes[/]  =  {HoldAll};  f\x}y}z] 

Out[104]  =  f[x,y,z] 

In[105]  :=  Attributes[/]  =  {HoldFirst};  /[x,y,z] 

Out[105]  =  /[jc,2,3] 


In 

In 


106]  :=  Clear [jc,v,z] 

107]  :=  Clear  All  [/] 


The  First  Argument  of  the  Function  Plot 

The  function  Plot  does  not  evaluate  its  arguments. 

In[108]  :=  Attributes  [Plot] 

Out[108]  =  {HoldAll,  Protected} 

The  first  argument  f[x\  can  be  meaningful  only  for  numerical  values  of  x,  not  for 
symbolic  v.  Therefore  it  is  better  not  to  evaluate  f[x\  before  the  function  Plot  will 
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call  it  for  numerical  values  of  v.  But  if  the  first  argument  is  a  command  which 
generates  the  list  of  expressions  to  draw,  it  will  not  work.  We  want  the  command  to 
be  executed;  to  this  end  Evaluate  is  used. 

In[109]  :=  Plot[Evaluate[Table[Sin  [n  *x],  {*,l,3}]],{x,0,2*Pi}] 


Out  [109] 


Hold 

The  function  Hold  suppresses  evaluation  of  its  argument. 

In[110]  :=  a  =  x 
Out[l  10]  =  x 
In[lll]  :=b  =  Hold[a] 

Out[lll]  =  Hold  [a] 

This  suppression  can  be  removed  by  the  function  ReleaseHold. 

In[112]  :=  Re  lease  Hold  [&] 

Out[l  12]  =  x 

The  function  Hold  is  simple — it  has  the  attribute  HoldAll,  i.e.,  it  does  not  evaluate 
its  arguments. 

In[113]  :=  Attributes[Hold] 

Out[113]  =  {HoldAll,  Protected} 

In[114]  :=  Clear [a}b\ 


Chapter  7 

Grobner  Bases 


7.1  Statement  of  the  Problem 

In  this  lecture  we  shall  consider  (in  a  slightly  vulgarized  form,  without  rigorous 
mathematical  terms)  an  important  mathematical  achievement  of  the  second  half  of 
the  last  century — Grobner  bases,  the  Buchberger  algorithm  (which  constructs  them), 
and  their  applications  (see  [12,  13]  for  an  introduction). 

Suppose  we  have  n  variables  x\, . . . ,  xn.  They  are  not  independent,  but  satisfy 
some  polynomial  equations  p\  =  0, . . . ,  pm  =  0  (pj  are  polynomials  of  x{).  Let’s 
consider  some  polynomial  q  of  the  same  variables.  It  is  natural  to  ask  if  this  poly¬ 
nomial  is  equal  to  0  due  to  the  constraints  on  our  variables  or  not.  If  there  is  another 
polynomial  <72,  there  is  the  question  of  their  equality. 

These  questions  would  become  very  easy  if  we  had  an  algorithm  reducing 
polynomials  of  dependent  variables  to  a  canonical  form.  Two  equal  polynomials 
reduce  to  the  same  canonical  form;  a  polynomial  equal  to  0  reduces  to  the  canonical 
form  0. 

We  can  try  to  use  the  equations  pj  =  0  for  simplifying  the  polynomial  q ,  i.e.,  for 
replacing  its  more  complicated  terms  by  combinations  of  simpler  ones.  But  to  do  so 
we  first  have  to  accept  some  convention  in  which  terms  are  more  complicated  and 
which  are  more  simple. 


7.2  Monomial  Orders 

We  need  a  total  order  of  monomials  (i.e.,  products  of  powers  of  the  variables 
xi 1  ”’xnn)-  An  order  is  total  if  for  any  monomials  s  and  t  either  s  <t  ox  s  >  t  ox 
s  =  t  is  true.  An  order  is  admissible  if  two  properties  are  satisfied: 

•  1  ^  s  for  any  monomial  s. 

•  If  s  <t  then  su  <tu  for  any  monomial  u. 

Three  admissible  orders  are  most  popular. 
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Lexicographic 

Anybody  who  has  ever  seen  a  dictionary  knows  what  is  lexicographic  order.  We  are 
comparing  two  monomials:  s  =  x[{ xj2  •  •  •  x"n  and  t  =  x™lx™: 2  •  •  •  x™n .  If  the  degree  of 
the  main  variable  x\  in  s  is  larger  than  in  t  (n\  >  mi),  then  s  >  t.  If  it  is  smaller 
( n\  <  mi),  then  s  <t.  If  n\  =  mi,  we  compare  the  degrees  of  the  next  variable  X2 :  if 
ri2  >  m2,  then  s  >  t;  if  ri2  <  m2,  then  s  <  t\  if  r\2  =  m2,  we  compare  the  degrees  of 
V3 ;  and  so  on. 


By  Total  Degree  than  Lexicographic 

First  we  compare  the  total  degree  n  =  n\  +  ri2  H - V  nn  of  the  monomial  s  and  the 

total  degree  m  =  mi  +  m2  H - \-mn  of  the  monomial  t.\fn>m  then  s  >  t\  if  n  <  m 

then  s  <  t\  if  the  total  degrees  are  equal,  we  compare  s  and  t  lexicographically. 


By  Total  Degree  than  Reverse  Lexicographic 

First  we  compare  the  total  degrees.  If  they  are  equal,  then  we  begin  from  the  junior 
variable  xn\  if  its  degree  in  s  is  larger  than  in  t  (nn  >  mn),  then  s  <  t\  if  it  is  smaller 
(nn  <  mn),  then  s  >  t\  if  nn  =  mn,  we  compare  the  degrees  of  the  previous  variable 
xn-\  \  and  so  on,  that  is,  this  is  (within  some  total  degree)  the  reverse  lexicographic 
order  with  respect  to  the  reverse  list  of  variables. 


7.3  Reduction  of  Polynomials 

Let’s  fix  some  admissible  monomial  order.  We’ll  write  polynomials  in  descending 
order:  the  leading  term  first,  followed  by  the  rest  ones.  We’ll  normalize  all 
polynomials  p\  in  such  a  way  that  the  coefficient  of  the  leading  term  is  1.  Now 
they  can  be  used  as  substitutions  which  replace  the  leading  term  by  minus  sum 
of  the  remaining  ones,  that  is,  if  some  term  of  a  polynomial  q  is  divisible  by  the 
leading  term  of  some  polynomial  pu  we  remove  this  leading  term  and  insert  minus 
sum  of  the  remainder  terms  of  pi  instead.  This  is  called  reduction  of  the  polynomial 
q  with  respect  to  the  set  of  polynomials  pu  if  none  of  the  substitutions  is  applicable, 
the  polynomial  q  is  called  reduced.  For  example,  let’s  consider  a  set  of  polynomials 
In[l]  :=  pi  =jca2  +  va2—  1;  p2  =  jt*y  —  1/4; 

Let’s  try  to  reduce  the  polynomial 
In [2]  :=  ^  =  jca2*v; 

(we  use  the  lexicographic  order  with  x>y).  This  can  be  done  in  different  ways. 
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Let’s  first  reduce  q  with  respect  to  p\ : 

In[3]  :=  PolynomialReduce[g,  {pi},  {x,y}] 

Out[3]  =  {M,)'-)'3} 

The  result  means  that  if  we  subtract  the  polynomial  p\  multiplied  by  y  from  q ,  then 
the  reduced  polynomial  y  —  y3  is  obtained.  This  is  what  we  are  interested  in. 

In[4]  :=ql  =  %[[2]] 

Out  [4]  =  v  -  v3 

Now  let’s  reduce  q  with  respect  to  p2 : 

In[5]  :=  PolynomialReduce[^,  {p2},  {.\\  v}] 

Out  [5]  =  { 

In[6]  :=  q2  =  %[[2]] 

Out[6]  =  X- 

So,  we  have  obtained  two  different  results,  q\  and  q2.  In  fact  they  are  equal  due  to 
Pi  =  0  and  p2  =  0,  but  this  is  not  evident.  Every  time  when  more  than  one  substi¬ 
tution  can  be  applied  to  a  term  of  a  polynomial  q  (in  this  particular  case,  we  can 
replace  either  v2  or  vy  in  v2y),  a  fork  appears;  maybe,  its  branches  join  later,  but 
maybe,  they  don’t  (as  in  this  case). 

A  set  of  polynomials  p\ , . . . ,  pn  is  called  a  Grobner  basis  (for  a  given  monomial 
order)  if  reduction  of  any  polynomial  q  with  respect  to  this  set  is  unique. 

This  definition  is  not  constructive:  it  does  not  say  how  to  check  if  a  given  set 
of  polynomials  forms  a  Grobner  basis.  Presently  we  shall  formulate  Buchberger 
algorithm  which  transforms  a  set  of  polynomials  (constraints  on  variables)  into  an 
equivalent  system  of  constraints  which  is  a  Grobner  basis. 


7.4  S-Polynomials 

In  our  example,  the  constraints  p\  =  0  and  p2  =  0  allow  us  to  simplify  the 
monomials  x2  and  vy.  Do  these  constraints  contain  an  extra  information  usable  for 
simplification  but  not  obvious?  Yes,  they  do!  Let’s  multiply  p\  and  p2  by  monomials 
(i.e.,  products  of  powers  of  variables)  in  such  a  way  that  their  leading  terms  become 
identical  (equal  to  the  least  common  multiple  of  the  leading  terms  of  p\  and  P2). 
Then  we  subtract  the  second  polynomial  from  the  first  one.  The  leading  terms  can¬ 
cel,  and  we  get  a  new  polynomial  with  a  new  leading  term  which  can  be  used  for 
simplifying  terms  in  q  (because  this  new  polynomial  also  vanishes).  This  polynomial 
is  called  the  S-polynomial  S  \p\,P2\  (from  the  word  subtraction).  In  our  example 
In[7]  :=S  =  Expan d[y  *  pi  —  x  *  p2] 

°ut[7]  =  ^ -y+y 

This  polynomial  can  be  added  to  the  system  of  constraints  p\  —  0,  p2  —  0.  Let’s 
normalize  its  leading  coefficient  to  1 : 

In[8]  :=  p3  =  Expand[4  *  S] 

Out  [8]  =x  — 4  y  +  4y3 

In[9]  :=  Clear[S] 
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Now  we  have  a  new  possibility  for  reduction: 

In[10]  :=  PolynomialReduce[q2,  {p3},  {a,v}] 

Out  [10]  = 

Now  we’ve  got  the  same  result  q\.  The  polynomials  {pi,P2,P3}  form  a  Grobner 
basis.  This  set  can  be  simplified  by  reducing  them  with  respect  to  each  other: 

In[l  1]  :=  PolynomialReduce[pl ,  {p3},  {.v,v}] 

Out[l  1]  =  |{x  +  4y-4y3},-l  +  17y2-32/+16/| 


In[12]  :=pla  =  Expand[%[[2]]/16] 

r  n  1  17  V2  4 

Out[12]  =  --  +  -^--2 /+/ 


In[13]  :=  PolynomialReduce[p2,  {p3},  {x}y)\ 

Out[i3]  =  (-1  +  16/-  16/)  | 

In[14]  :=  p2a  =  Expand[— %[[2]]/4] 

°ut[14]  =  j^~y2+y4 

In[15]  :=  PolynomialReduce[pla,p2a,  {.v,  y}] 

Out[i5]  =  {{  — l  +y2}  >0} 


The  polynomial  p\a  reduces  to  0,  and  hence  it  can  be  excluded  from  the  system 
of  constraints  on  our  variables  x,  y.  The  polynomials  p2a  and  p 3  form  a  reduced 
Grobner  basis  (with  respect  to  the  lexicographic  order  with  x>y).  Reduced  Grobner 
basis  is  unique  (for  a  given  monomial  order),  if  we  accept  the  convention  that  the 
coefficients  of  the  leading  terms  are  1 . 


7.5  Buchberger  Algorithm 

Generalizing  this  example,  we  can  formulate  an  algorithm  for  construction  of  the 
Grobner  basis  of  a  set  of  n  polynomials  P  =  {pi}: 

1 .  S  =  {the  set  of  pairs  ( p^pj )  of  these  polynomials  with  i  <j^n} 

2.  while  S  is  not  empty 

3.  choose  and  remove  some  pair  ( p^pj )  from  S ; 

4.  calculate  the  S-polynomial  S  [p^Pj] ; 

5.  reduce  it  with  respect  to  P; 

6.  if  the  result  is  not  0,  add  this  polynomial  to  P, 
and  the  corresponding  pairs  to  S. 

The  set  of  pairs  S  alternatingly  shrinks  and  grows.  But  it  can  be  proved  that  this 
process  terminates  after  a  finite  number  of  steps  and  produces  a  Grobner  basis  P. 
Reducing  these  polynomials  with  respect  to  each  other  and  throwing  zeros  away, 
one  can  get  the  reduced  Grobner  basis.  Some  variations  can  improve  the  efficiency 
of  the  algorithm.  For  example,  when  adding  a  new  polynomial  to  the  set  P,  we 
can  reduce  all  polynomials  already  in  P  with  respect  to  the  new  one;  if  some  of 
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them  changes,  reduce  other  ones  with  respect  to  them,  and  so  on  (throwing  zeros 
away  while  doing  so).  The  order  in  which  pairs  are  selected  from  the  set  S  is  very 
important — a  good  choice  can  reduce  the  amount  of  computations  drastically. 

Let’s  ask  Mathematica  to  construct  the  Grobner  basis  for  the  system  {puPi} 
with  respect  to  the  lexicographic  order  with  v  >  y: 

In[16]  :=B  =  GroebnerBasis[ { p  1 ,  p2 } ,  {.v,  y}] 

Out[16]  =  {1  -  16/ +  16/,x  — 4y  +  4j3} 

Let’s  reduce  the  polynomial  q  to  the  canonical  form,  i.e.,  reduce  it  with  respect  to 
the  Grobner  basis  (the  result  is  unique). 

In[17]  :=  PolynomialReduce[g./k  {.v.v}] 

Out[17]  = 

It  is  difficult  to  predict  the  complexity  of  the  Buchberger  algorithm.  In  worst 
cases  it  can  be  very  high,  i.e.,  constructing  the  Grobner  basis  of  a  moderately  large 
system  can  require  a  huge  amount  of  calculations.  The  complexity  strongly  depends 
on  the  monomial  order  being  used.  In  the  case  of  ordering  by  the  total  degree  (and 
then  something)  reduction  tries  to  lower  the  total  degree  of  a  polynomial.  The  num¬ 
ber  of  possible  terms  in  a  polynomial  of  a  low  total  degree  is  small.  In  the  case  of  the 
lexicographic  order,  a  polynomial  of  y  of  an  arbitrarily  large  degree  is  considered 
simpler  than  v  to  the  first  power.  Therefore  reduction  does  not  lower  the  number  of 
terms  in  a  polynomial  as  strongly  as  in  the  case  of  total-degree  orders,  and  the  com¬ 
plexity  of  Grobner  basis  calculations  is  higher.  On  the  other  hand,  a  reduced  Grobner 
basis  with  respect  to  a  lexicographic  order  provides  more  information  useful  for 
solving  the  system,  as  we  shall  see  soon.  Mathematica  knows  how  to  construct 
Grobner  bases  with  respect  to  monomial  orders  we  discussed. 

In[18]  :=B  =  GroebnerBasis[{pljp2}, {x}y}} 

MonomialOrder  DegreeLexicographic] 

Out[18]  =  {  —  1  +  4xy,  —  1  -fv2-fy2,v  — 4y +  4y3} 

In[19]  :=  PolynomialReduce[^,  ZL  MonomialOrder  — »•  DegreeLexicographic] 

Out[19]  =  {{^,0,o},i} 

In [20]  :=  Clear[pl,p2,p3»pla»p2a»?»ql,q2,B] 


7.6  Is  the  System  Compatible? 

Consider  the  system 

In[21]  :=pl  =jcA2*y  +  4*vA2—  17;  p2  =  2 *.v*y  —  3 * vA3  +  8; 
p3  =jc*yA2  —  5*x*y+l; 

Let’s  construct  its  Grobner  basis — an  equivalent  system  of  equations. 

In[22]  :=  GroebnerBasis [ { p  1,  p2.  p3 } ,  {.v, y,  z}} 

Out  [22]  =  {1} 

This  system  contains  the  equation  1=0.  This  means  that  it  has  no  solutions.  If  the 
Grobner  basis  contains  1,  the  system  is  incompatible.  The  inverse  statement  can  be 
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also  proved — the  Grobner  basis  of  an  incompatible  system  always  contains  1  (if  we 
normalize  all  leading  coefficients  to  1;  otherwise,  just  some  nonzero  constant). 

In[23]  :=  Clear [pl,p2,p3] 


7.7  Grobner  Bases  with  Respect  to  Lexicographic  Order 


Reduction  with  respect  to  the  lexicographic  order  first  of  all  tries  to  lower  the  degree 
of  the  main  variable  (x  in  our  examples),  and  if  possible,  down  to  0.  Therefore 
usually  there  is  a  subset  of  polynomials  in  a  reduced  Grobner  bases  which  don’t 
contain  v.  When  v  is  absent,  reduction  tries  to  lower  the  degree  of  y,  and  if  possible, 
down  to  0.  Therefore  usually  among  these  polynomials  there  are  those  which  don’t 
contain  y,  and  so  on.  In  other  words,  a  lexicographic  Grobner  bases  has  a  triangular 
structure.  For  example, 

In [24]  :=B  =  GroebnerBasis[{xA2 + yA2 + zA2,x+ y-z,y+ zA 2}, {x,y, z}] 

Out  [24]  =  {z2  +  z3  +  z4  ,y  +  z2  ,x  -  z  -  z2} 

The  polynomial 
In[25]  :=pl=J?[[l]] 

Out[25]  =  z2  +  z3  -fz4 

depends  only  on  the  most  junior  variable  z.  This  means  that  projections  of  all 
solutions  of  our  system  on  the  z  axis  form  a  finite  set  of  points — roots  of  this  equa¬ 
tion.  In  our  example,  they  are  z  =  0  and 

In[26]  :=  pi  =  Expand[pl/zA2];  s  =  Solve  [pi  ==  0  ,z] 

Out [26]  =  {{z  -)•  -(-1)1/3} ,  {z  -f  (-1)2/3}| 


In[27]  :=  zl  =  ComplexExpand[z/.s[[l]]] 

1  iv^ 

~2  2~ 


Out  [27] 


In[28]  :=  z2  =  ComplexExpand[z /  •  $  [  [2]  ]  ] 

Out[28]  =  -i  +  ^ 


Substituting  any  of  these  z  values  to 
In[29]  :=p2  =  B[[2]\ 

Out[29]  =y  +  z2 

we  find  the  corresponding  y  value.  Substituting  these  z  and  y  into 
In[30]  :=  p3  =  B[[ 3]] 

Out[30]  =  v  —  z  —  z2 

we  find  the  corresponding  v  value.  Thus  solving  any  system  of  polynomial  equations 
with  several  unknowns  reduces  to  solving  single-variable  polynomial  equations 
sequentially,  thanks  to  lexicographic  Grobner  bases.  Even  when  some  of  them 
cannot  be  solved  in  radicals,  it  is  easy  to  solve  them  numerically  to  any  desired 
precision. 

In[31]  :=  Clear [#, pi, p2,p3,zKz2] 

And  here  is  another  example. 
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In[32]  :=B  =  GroebnerBasis[{jcA2  —  2  *.v  *y  +  2 *yA2  —  —  j*z+zA2—  1, 

x*z+yA2-y*z- l},{x,;y,z}] 

Out [3 2]  =  {l  -y2-2z2+y2z2  +  z4,-y+y3+z-y2z+yz2-z3, 
x-y-2z+y1z  +  z3} 

Now  we  have  no  equations  with  a  single  variable  z\  there  are  2  equations  containing 
z  and  y: 

In[33]  :=  pi  =  Factor[£[[l]]] 

Out[33]  =  (-1  +z)(l  +z)  (-1  +y2  +  z2) 

In[34]  :=  p2  =  Factor^ [[2]]] 

Out[34]  =  (y  ~  z)  (- 1  +  y2  +  z2) 

The  common  set  of  their  solutions  is  the  circle  y2  +  z2  =  1 .  Substituting  a  point  on 
this  circle  into 
In[35]  :=p3=B[[3]\ 

Out[35]  =  v  —  y  —  2z  +  y2z  +  z3 

we  find  the  corresponding  x  value,  that  is,  the  set  of  solutions  of  this  system  is 
one-dimensional. 

In [36]  :=  Clear[ZL  p  1 ,  p2,  p3] 

For  solving  a  system  of  polynomial  equations  it  is  useful  to  construct  its  Grobner 
basis  and  then  to  factorize  its  elements. 


7.8  Is  the  Number  of  Solutions  Finite? 

Grobner  bases  with  respect  to  other  monomial  orders  don’t  have  such  simple 
triangular  structure.  But  any  Grobner  basis  can  tell  us  not  only  if  the  system  is 
compatible  but  also  if  the  number  of  its  solutions  is  finite.  Let’s  consider  the  same 
examples. 

In [37]  :=  GroebnerBasis[{jrA2  +  yA2 + zA2,x + y  —  z}y  +  zA2} ,  {a%>\ z} , 
MonomialOrder  DegreeLexicographic] 

Out  [37]  =  {x+y-z,y  +  z2,-y+y2 -yz} 

The  leading  terms  of  the  polynomials  forming  this  basis  are  x,  z 2 ,  and  y2.  What  is  the 
dimensionality  of  the  space  of  polynomials  which  cannot  be  reduced  with  respect  to 
this  basis?  Only  monomials  which  are  not  divisible  by  these  leading  terms  cannot  be 
reduced,  namely,  1,  y,  and  z.  So  the  space  of  polynomials  reduced  to  the  canonical 
form  is  three-dimensional  for  our  system  of  constraints  on  the  variables.  Therefore 
our  system  has  3  solutions  (there  explicit  form  can  be  obtained  more  easily  from  the 
lexicographic  Grobner  basis,  as  we  have  seen). 

If  each  variable  raised  to  some  power  is  the  leading  term  of  some  element  of  a 
Grobner  basis,  then  any  monomials  with  this  (or  higher)  degree  of  this  variable  are 
reducible.  Irreducible  monomials  are  inside  the  parallelepiped  bounded  by  these 
powers,  and  their  number  is  finite.  Therefore  the  space  of  polynomials  reduced 
to  the  canonical  form  is  finite-dimensional,  and  the  system  has  a  finite  number  of 
solutions. 
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And  here  is  our  second  example: 

In[38]  :=  GroebnerBasis[{.\ A2  —  2*x*y  +  2* yA2  —  l,x*y  —  y*z  +  zA2—  1, 
x*z+)/A2-y*  z—  1 } ,  {x,y,  z}  ,  MonomialOrder  — >►  DegreeLexicographic] 

Out[38]  =  {-1  +y2  +  xz-yz,-l  +xy -yz  +  z2,-3 +x2  +  2y2 -2yz  +  2z2, 
x-y-2z  +  y2z  +  z3,x-2y  +  y3  -z  +  yz2} 

The  leading  terms  are  xz,  xy,  x2,  y2z,  and  y3.  Among  them  there  are  powers  of  x 
and  of  y,  but  not  of  z.  Therefore  the  space  of  polynomials  in  the  canonical  form  (i.e., 
reduced  with  respect  to  this  basis)  is  infinite-dimensional.  This  space  contains,  e.g., 
the  directions  1,  z,  z2,  z3. . .  (and  not  only  them).  This  means  that  the  set  of  solutions 
of  our  system  is  infinite. 

So,  the  criterion  works  in  the  opposite  direction,  too.  If  there  exists  a  variable 
no  power  of  which  appears  as  the  leading  term  of  some  element  of  the  Grobner 
basis  (not  being  multiplied  by  some  other  variable),  then  all  powers  of  this  variable 
are  irreducible,  and  the  space  of  polynomials  in  the  canonical  form  is  infinite¬ 
dimensional.  And  hence  the  set  of  solutions  of  the  equation  system  is  infinite. 

Knowing  the  reduced  Grobner  basis  (for  any  monomial  order)  one  can  also  find 
the  dimensionality  of  the  set  of  solutions  [14].  Consider  sets  of  variables  satisfying 
the  following  condition:  none  of  the  leading  terms  of  the  elements  of  the  basis  is 
a  product  of  powers  of  these  variables.  The  number  of  variables  in  the  longest  set 
gives  the  dimensionality  of  the  set  of  solutions.  In  our  example  there  is  just  one  such 
set — {z}.  Therefore  the  set  of  solutions  of  this  system  is  one-dimensional. 


Chapter  8 

Calculus 


8.1  Series 


Let’s  expand  a  function  in  x  at  the  point  x  =  0  up  to  the  fifth  order. 

In[l]  :=s  =  Series[Exp[x],{x,0,5}] 

v2  v,3  v,4  v-5 

Out[l]  =  \+x+  — +  —  +  —  +  — +  0]?] 

How  are  series  represented  in  Mathematical  By  the  function  SeriesData.  Its  first  ar¬ 
gument  is  the  expansion  variable;  the  second  one — the  expansion  point;  the  third 
one — the  list  of  coefficients;  the  fourth  one — the  minimum  degree  (here  0);  the 
fifth  one — the  power  of  0[x]m,  the  sixth  one  is  1  for  series  with  integer  degrees  (all 
degrees  are  divided  by  it  if  it’s  not  1).  Thus  a  series  is  not  a  sum  (Plus)  in  spite  of  its 
appearance. 

In[2]  :=  FullForm[,v] 

Out  [2]/ /FullForm  = 

SeriesData  [x,  0,  List[l ,  1 ,  Rational  [1 , 2] ,  Rational  [1 , 6] ,  Rational  [1 , 24] , 
Rational[l,  120]],  0,6, 1] 

Coefficients  are  extracted  by  the  function  SeriesCoefficient. 

In[3]  :=  Do[Print[SeriesCoefficient[.s\ n]\ ,  {/i, 0, 5}] 


1 

1 

1 

2 

1 

6 

1 


24 

1 


120 


This  series  begins  with  degree  —  1 . 

In[4]  :=  s  =  Series [Cot[x] ,  {x,  0,5}] 


Out  [4]  =  ~~\ 


X - 


2x5 


45  945 


+  O 


x 
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In[5]  :=  FullForm  [s] 

Out[5]/ /FullForm  = 

SeriesData[x,  0,  List[l ,  0,  Rational[—  1 , 3] ,  0,  Rational]  — 1,45],  0, 
Rational[-2, 945]],  -1,6,1] 

This  is  a  series  with  half-integer  degrees. 

In[6]  :=  s  =  Series[Sqrt[x  *  (1  —  x)] ,  {x,  0,5}] 

r3/2  r5/2  r7/2  cr9/2 

r  / —  «/v  J\s  ./V  «A/ 

Out[6]  =  - - - - - — - 77777-  4-  O 


x 


11/2 


1 

1111 

1 

Log 

X 

'  x  2x2  '  3x3  4x4  '  ^ 

X 

v  2  8  16  128 

In[7]  :=  FullForm  [s] 

Out  [7]/ /FullForm  = 

SeriesData[x,  0,  List[l ,  0,  Rational  [—  1 , 2] ,  0,  Rational  [—  1 , 8] ,  0, 

Rational]  —  1, 1 6],  0,  Rational  [— 5, 128]],  1,11,2] 

This  is  an  expansion  at  infinity. 

In[8]  :=  s  =  Series[Log[x-F  l],{x,  Infinity,  4}] 

Out  [8]  = 

In[9]  :=  FuilForm[s] 

Out[9]/ /FullForm  = 

SeriesData[x,  Directedlnfinity[l] ,  List  [Times  [—  1 ,  Log  [Power  [x,  —  1]]] ,  1 , 
Rational  [—1,2],  Rational  [1,3],  Rational  [  — 1,4]],  0,5,1] 

Coefficients  of  a  series  in  x  may  depend  on  x,  but  only  weakly,  weaker  than  any 
degree. 

In[10]  :=  s  =  Series[xAx,{x,0,3}] 

l 

Out [10]  =  1  4-Log[x]x4-  -Log[x]2x2  -Log[x]3x3  +  0[x]4 

In[l  1]  :=  FullForm^] 

Out[l  1]/ /FullForm  = 

SeriesData[x,  0,  List[l ,  Log[x] ,  Times  [Rational  [1 , 2] ,  Power  [Log  [x] ,  2]] , 

Times  [Rational  [  1 , 6] ,  Power  [Log  [x]  ,3]]], 0,4,1] 

In [12]  :=  Clear  [s] 


Operations  with  Series 


Let’s  take  three  series. 

In[13]  :=  sinx  =  Series  [Sin  [x],{x,  0,7}] 


8 


3  5  7 

°u.[13]  =  ,--  +  — +  OH 

In[14]  :=  cosx  =  Series[Cos[x],{x,0,7}] 


8 


2  4  6 

y"  y  1  yU 

Out[14]  =  1 - 1- - +  0[x] 

L  J  2  24  720  L  J 

In[15]  :=  tanx  =  Series[Tan[x],{x,0,7}] 

,3  0.5  Ylx 7 


x^  2x5 


Out[15]  —  x+ —  4-  ^ 


+ 


315 


4 -O 


x 


8 
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Series  can  be  added,  multiplied,  divided,  etc. 

In[16]  :=  tanx  *  cosx 


3  5 

Out[16]=x--  +  — 


7 


5040 
11  x1 


+  O 


x 


8 


8 


In[17]  :=  sinx/cosx 

0ut[17]=x+y  +  ^  +  ^  +  0[x 

In [18]  :=  sinxA2  +  cosxA2 

Out[18]  =  1  +  <9[x]8 

If  a  series  occurs  as  an  argument  of  a  function,  the  function  is  expanded 
automatically. 

In[19]  :=  Exp[sinx] 


-y~4  ^5 

___  «-  -«  .  A  •/V'  yv  yL 

Out[19]  =  l+x+------- 

In[20]  :=  (1  —  cosx)/xA2 


7 


+  90+° 


V8 


Out  [20]  =  1 


X 


+ 


H-  O  x] 1 


24  720 

Here  is  an  interesting  method  to  expand  a  function  in  x. 
In[21]  :=X  =  Series[x,{x,0,7}] 

Out  [21]  =  x  +  (9[x]8 

In[22]  :=  Sm[X] 


3  5 

X°  XJ 

~6  +  120 


7 


5040 


+  0 


x 


8 


Out  [22]  =  x 

In[23]  :=  Clear [X] 

Series  can  be  differentiated  and  integrated. 

In[24]  :=  D[cosx,x] 


x~ 


X' 


+  O 


x 


7 


Out[24]  =  —x  +  —  ■  ]20 

In[25l  :=  Integrate  [tanx,  xl 

_  x2  x4  x6  17x8  ^  l9 

Out[25]-y +  -  +  -  +  —  1 


+  0[x\ 


A  series  (beginning  from  a  small  term)  can  be  substituted  for  the  expansion 
variable  of  another  series.  This  is  Sin  [Tan  [x]]. 

In[26]  :=  st  =  sinx/.x— Manx 


Out[26]  =  x+  — 

6 


x3  x5  55x7 


+  O 


40  1008 

An  alternative  syntax. 

In[27]  :=  ComposeSeries[sinx,tanx] 


x 


8 


Out  [27]  =  x+  — 

6 


x3  x5  55x7 


+  O 


x 


8 


40  1008 

Let’s  subtract  Tan[Sin[x]];  this  expression  is  expanded  automatically,  i.e.,  series  are 
contagious. 

In[28]  :=  st  — Tan[Sin[x]] 


x 


7 


Out  [28]  =  +  0[x 

In[29]  :=  Clear[st] 


8 
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Series  inversion — solving  the  equation  tanx  =  y  for  x  as  a  series  in  y. 

In[30]  :=  atany  =  InverseSeries[tanx,v] 

Out  [30]  =y-y^  +  y^--y^-  +  0\yf 

The  result  should  be  the  arctangent. 

In[31]  :=  Series[ArcTan[y]»{y,0,7}] 

Out[31]=j-^  +  ^-^  +  0[y]8 

In[32l  :=  ComposeSeriesftanx,  atanyl 

Out[32]=j  +  0[y]8 

It  is  not  allowed  to  substitute  a  numerical  value  for  the  expansion  variable  into  a 
series.  The  function  Normal  converts  a  series  into  a  normal  expression  by  dropping 
+0[x\n.  Here  is  a  plot  of  sine  and  a  few  truncations  of  its  series. 

In[33]  :=  Plot[Evaluate[Prepend[Table[Normal[Series[Sin[x] , {x, 0, n}]] ,  {n,  1,5,2}], 
Sin[x]]],{jc,-Pi,Pi}] 

3  - 


Out[33] 


-3- 

In[34]  :=Clear[sinx,cosx,tanx,atany] 

You  should  work  with  series  as  long  as  possible,  converting  them  into  normal 
polynomials  only  at  the  very  end.  Then  terms  of  too  high  orders  of  smallness  are 
dropped  automatically.  At  any  moment  you  know  exactly  what  is  the  order  of  the 
neglected  term  O  [x] 11 . 


Arbitrary -Order  Term 

The  function  SeriesCoefficient  can  also  be  used  in  this  way. 

In[35]  :=  SeriesCoefficient  [Exp  [x] ,  {x,  0,4}] 

Out[35]  = 

This  is  the  4th  coefficient  in  the  expansion  of  Exp[x]  in  x  at  0.  The  number  of  the 
series  term  can  be  given  symbolically. 


8.2  Differentiation 
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In[36]  := 

Out[36] 


cn  =  SeriesCoefficient[Exp[x] ,  {x,  0,  a?}] 

X  n  >  0 


—  1  n\ 

0  True 


In[37]  :=  Sum[cn*xA«,{n,0,  Infinity}] 
Out  [37] 

In[38] :: 


=  e 


Out[38] 

In[39]  := 
Out[39] 

In[40]  := 


cn  =  Seri  esCoefficient  [Cos  [x] ,  {x\  0,  /?}] 

M„>0 

2/?!  tL  —  U 

0  True 

=  Sum[cn  *  xAn}  {n,  0,  Infinity}] 

=  Cos[x] 

=  Clear[cn] 


8.2  Differentiation 

In [41]  :=  /  =  x*Sin[x+v] 

Out  [41]  =  xSin[x-f;y] 

The  derivative  in  x;  in  y;  in  x  and  y;  the  second  derivative  in  x;  the  second  derivative 
in  x  and  the  first  one  in  y: 

In [42]  :=  {D\f,x\,D[f,y],D[f,x,y],D\f,{x,2}\,D[f,{x,2},y]} 

Out [42]  =  |xCos[x  +  y]  4- Sin[x  +  y],xCos[x  +  y],Cos[x  +  y]  —  xSin[x  +  y], 

2Cos[x  +  y]  —  xSin[x  +  y],  — xCos[x  +  y]  —  2Sin[x  +  y]} 

In[43]  :=  Clear[/] 


Unknown  Functions 


Expressions  with  unknown  functions  can  be  differentiated. 

In [44]  :=D[x*/[xa2],x] 

Out  [44]  =  /  [x2]  +  2 x2f'  [x2 

Mathematica  represents  the  first  derivative  of  an  unknown  function  /  as  the  operator 
Derivative[l]  applied  to  /. 

In [45]  :=  FuiiForm[%] 

Out  [45]/ /FullForm  = 

Plus  [/ [Power  [x,  2]] ,  Times  [2,  Power  [x,  2] ,  Derivative[l]  [/]  [Power  [x,  2]]]] 

And  this  is  the  second  derivative. 

In[46]  :=  Expand [D[x  *  /[xA2] ,  {x,  2}]] 

Out [46]  =  6 xf  [x2]  +4 x3/"  [x2] 

In[47]  :=  FullFonn[%] 

Out  [47]/ /FullForm  = 

Plus  [Times  [6,  x,Derivative[l]  [/]  [Power[x,2]]], 

Times  [4,  Power  [x,  3] ,  Derivative  [2]  [/]  [Power  [x,  2]]]] 
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Derivative [2, 3]  means  the  second  derivative  in  the  first  argument  and  the  third  one 
in  the  second. 

In[48]  :=Z)[/[.x, >>],{*, 2}, {y, 3}] 

Out[48]  =  /(2’3)[x,j] 

In[49]  :=  FullForm[%] 

Out  [49]/ /FullForm  = 

Derivative[2, 3]  [/]  [x,y\ 


Defining  Derivatives 


Let’s  tell  Mathematica  that  the  derivative  of  the  function  /  is  g. 
In[50]  :=ff[x-]  :—g[x] 

In[51]  :=  D[x*  f[xA2]}x] 

Out  [51]  =  /  [. x 2]  +  2 x2g  [. x 2 

The  second  derivative  is  not  substituted  automatically. 

In[52]  :=  Expand [D[,v  *  f[xA 2] ,  {x,  2}]] 

Out  [52]  =  6xg  [. x 2]  +4 x3f"  [. x 2] 


we  can  tell  Mathematica  that  'S  a  tfuictioil  g 


In 

In 
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:=  Derivative^, 2][/][x_»y_]  :=  g[x,y] 
54]  :=D[x*f[x,y], {x, 2},  {y, 2}] 

Out[54]  =  2  g[x,y\+xfi2’%,y] 


8.3  Integration 


Indefinite  Integrals 


In[55]  :=  Integrate^ /(x*  (xA2  —  2)A2),x] 
Out  [55]  = 


1 


+ 


Log[x]  1 


In[56]  := 
Out  [5  6] 
In[57]  := 

Out[57] 


4 (— 2  +x2)  '  4 

=  Integrate^ /(Exp[x]  +  l),x] 
=  x  —  Log  [  1  +  eA] 

=  Integrate  [x  /  (Exp  [x]  + 1)^1 


- Log  2  —  xz 

8  5L 


— —  vLog  [1  +  eA]  —  PolyLog  [2,  —  e 


X 


In[58] :  =  Integrate  [Log  [x] ,  x] 

Out  [5  8]  =  —  v  +  vLog[v] 

In[59]  :=  Integrate[l /Log[.r],x] 

Out  [5  9]  =  LogIntegral[v] 


8.3  Integration 


69 


In[60]  :=  Integrate  [Exp  [xA  2],  x] 
Out  [60]  =  -V^rErfi^] 

In[61]  :=  Integrate^  *Exp[xA  2], x] 


X 


°ut[6i]  =  — 

In[62]  :=  Integrate[l/Sqrt[(l  — xA2)  *  (1  —  £A2*xA2)],x] 

.  .  Vl-  x2V  1  —  k2x2  EllipticF  [ ArcSin \x] , k2 1 

\/ (-1  +  x2)  (-1  +  k2x2 ) 

In [63]  :=  Simplify  [Integrate[x/Sqrt[(  1  —  xA2)  *  (1  =&A2*xA2)],x],x  >  1] 

Log  k  (ky/—  1  -f-x2  +  V— 1 
Out[63]  = - LA - - - 


Definite  Integrals 


Here  Mathematica  produces  a  result  with  some  assumptions  about  the  parameter  n. 

In[64]  :=  Integrate[xAn,(x,0, 1}] 

1 


Out  [64]  =  ConditionalExpression 


1  +  n 


,  R  en  >  —  1 


Let’s  tell  it  that  n  >  —  1 . 

In[65]  :=  Integrate [x  m  {x,0, 1},  Assumptions—  >{n  >  -i}] 

Out[65]  =  i 

In[66]  :=  Integrate  [Exp  [a  *  Sin[x]] ,  {x,  0,2*  Pi}] 

Out[66]  =  27rBesselI[0,a] 

In[67]  :=  Integrate[Log[x] /( 1  —  x) ,  {x,  0, 1 }] 

TC2 

Out  [67]  =  — — 

The  default  value  of  the  option  Assumptions  for  Simplify,  Integrate,  etc.  can  be 
given  in  the  variable  $Assumptions. 

In[68]  :=  $Assumptions  =  {t>  0 <  I, a  >  —  l}b  >  —1}; 

In[69]  :=  Integrate[xAa *  (1  — x)Afe*  (1  —  t *x)Ac,{x,0„  1}] 

Out[69]  =  —  (7rCsc[<2/r]  Gamma[l  +  b\  Hypergeometric2FlRegularized[l  +  «,— c, 
2  +  a-\-b,t])/ Gamma[-fl] 

Now  we  can  clear  $  Assumptions. 

In[70]  :=  $Assumptions  =  True; 

Multiple  integral 

In[71]  :=  Integrate[l/(1  +x*y), {x,0, 1}, {y,0, 1}] 


Out  [71] 


7T 


12 
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8.4  Summation 


Finite  Sums 


In[72]  :=  Sum[n,{n,0,&}] 

Out  [7  2]  =  L(1  +k) 

In[73]  :=  Sum[nA2,{n,0,fc}] 


Out  [73]  =  hi{\+k){\+2k) 

In [74]  :=  Sum[x/2,  {/7, 0,  A:}] 


Out  [74] 

In[75]  := 
Out  [7  5] 
In[76]  := 
Out  [7  6] 
In[77]  := 
Out  [7  7] 


1  H-  x 


1  +k 


—  1  X 

-  Sum  [Binomial  [A:,  n] ,  {n,  0,  k}] 

=  2k 

-  Sum[(— l)An*Binomial[fc,/f],{n,0,&}] 
=  KroneckerDelta[k] 

=  Sum[Binomial[&,  n]  A2}  {tu  0,  k}] 

=  Binomial[2/:,k] 


Series 

In [78]  :=  Sum[l/nA2,  {n,  1,  Infinity}] 

7 

Out[78]  =  — 

In[79]  :=  Sum[l/nA4,{n,  1,  Infinity}] 

<M79]  =  £ 

In [80]  :=  Sum[(—  1  )An/nA2,  {n<  1, Infinity}] 

Out[80]  =  ~j^ 

In [81]  :=  Sum[jcAn/n!,{n,0, Infinity}] 

Out  [81]  =  eA 


8.5  Differentiol  Equations 


A  first-order  differential  equation. 

In[82]  :=  DSolve[D[x[t],t]  +x[t]  ==  0,jt[f],f] 

Out[82]  =  {{x[t}  ->e-'C[l]}} 

The  solution  contains  an  arbitrary  constant  C[l].  Let’s  add  an  initial  condition: 


8.5  Differentiol  Equations 


In[83]  :=  DSolve[{D[x[f],j]  +x[t]  ==  0,x[0]  ==  l},x[*],r] 

Out[83]  =  {{x[^]  — ?>e_r}} 

A  second-order  differential  equation. 

In[84]  :=  DSolve[D[xM,{^2}]  +x[t]  ==  0,x[f],/] 

Out [84]  =  {{x[t}  ->  C[l]Cos[f]  +  C[2]  Sin[f]}} 


Initial  conditions. 

In[85]  :=DSolve[{D[x[*],{*,2}]  +x[f]  ==0,x[0]  ==0,x/[0]  ==  l},x[^] 

Out[85]  =  {{x[f]  Sin [^] }} 

Boundary  conditions. 

In [86]  :=  DSolve[{D[x[*],{*,2}]  +x[/]  ==  0,x[0]  ==  0,x[l  ==  1  },x[/],/] 

Out[86]  =  {{x[f]  — >  Csc[l]  Sin[^]}} 

A  system  of  differential  equations. 

In[87]  :=  DSolve[{D[x[f],f]  ==  p[t],D\p[t\,t ]  == 

Out[87]  =  {{p[t}  ->C[l]Cos[f]  -C[2]  Sin[f],x[f] 


C[2]Cos[r]+C[l]Sin[r]}} 


Chapter  9 

Numerical  Calculations 


9.1  Approximate  Numbers  in  Mathematica 

Mathematica  usually  works  with  exact  numbers,  either  symbolic  (7T,  e)  or  rational, 
and  derives  exact  analytical  results.  However,  it  can  also  perform  approximate 
numerical  calculations.  Many  problems  cannot  be  solved  analytically,  but  numerical 
solution  is  possible.  On  the  other  side,  an  analytical  result  can  depend  on  symbolic 
parameters;  in  order  to  do  a  numerical  calculation,  you  have  to  substitute  some 
numerical  values  for  all  parameters.  It  is  often  useful  to  check  the  correctness  of 
a  complicated  analytical  derivation  by  a  direct  numerical  calculation  for  a  few  sets 
of  values  of  the  parameters. 

There  are  two  kinds  of  approximate  real  numbers  in  Mathematica.  The  first  one 
is  machine  numbers. 

In[l]  :=p  =  N[ Pi] 

Out[l]  =3.14159 
In [2]  :=  FullForm[p] 

Out  [2]/ /FullForm  = 

3.141592653589793" 

Precision  is  the  number  of  significant  decimal  digits.  For  machine  numbers  it  is 
a  symbolic  constant: 

In[3]  :=  Precision  [p] 

Out[3]  =  MachinePrecision 
In[4]  :=  A/ [MachinePrecision] 

Out[4]  =  15.9546 

It  is  53  bits  (or  about  16  decimal  digits)  of  precision.  In  other  languages  (C,  Fortran) 
such  numbers  are  usually  called  double  precision.  Operations  with  such  numbers  in 
Mathematica  are  performed  by  hardware,  as  in  C  or  Fortran.  They  are  less  efficient 
than  in  these  languages,  but  nevertheless  rather  efficient. 

In[5]  :=  MachineNumberQ[p] 

Out  [5]  =  True 
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There  are  also  arbitrary-precision  numbers.  Operations  with  them  are  imple¬ 
mented  in  software  and  are  far  less  efficient. 

In[6]  :=p  =  N[ Pi,  25] 

Out[6]  =  3.141592653589793238462643 

In[7]  :=  Full  Form  [/?] 

Out  [7]/ /FullForm  = 

3.14159265358979323846264375. 

In[8]  :=  Precision [p] 

Out[8]  =  25. 

Precision  is  a  part  of  a  value,  not  of  a  variable,  as  in  some  other  languages.  If  it 
is  equal  to  n ,  then  the  estimated  relative  error  of  the  value  is  10-,z.  There  is  also 
accuracy — the  number  of  significant  decimal  digits  after  the  point.  If  it  is  equal  to 
m,  then  the  estimated  absolute  error  of  the  value  is  10-m. 

In[9]  :=  Accuracy!/?] 

Out[9]  =  24.5029 

When  approximate  numbers  are  added  or  subtracted,  the  absolute  errors  are 
added.  The  difference  of  two  approximately  equal  numbers  has  a  lower  precision 
than  the  operands. 

In[10]  :=</  =  iV[355/113,20] 

Out  [10]  =  3.1415929203539823009 
In[l  1]  :=  Accuracy^] 

Out[l  1]  =  19.5029 

In [12]  :=d  =  p  —  q 

Out [12]  =  -2.667641890624  x  10~7 

In[13]  :=  {Precision^] ,  Accuracy [d] } 

Out[13]  =  {12.929,19.5028} 

When  approximate  numbers  are  multiplied  or  divided,  the  relative  errors  are  added. 

In[14] r  —  p/q 

Out[14]  =  0.9999999150863285520 

In[15l  :=  { Precision [;*] ,  Accuracy H  ) 

Out[15]  =  {20., 20.} 

In[16]:=  Clear  [p,q,d,r] 

This  error  handling  sometimes  may  be  too  pessimistic.  Let’s  consider  an 
example  [15].  The  sequence  xn  =  f(xn- 1),  jci  =  1, 

In[17]  :=/[*_]  :=  (xA2+4)/(2*;c) 
converges  to  2.  With  machine  numbers 

In[18]  :=  f[x-}nJ\  :=  Module[{/  =  Table[jc, {n}]}, 

Do[/[[i]]  =f[t[[i~  l]]],{i,2,n}];  t] 

Ih[19]  :=*  =  /[!. 0,60]; 
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In[20]  :=  Li stPlot [x, PlotRange — >{0.95,2.55}, 
PlotMarkers—  >  {Automatic,  Medium}] 


Out  [20]  = 


this  is  indeed  so.  Now  let  x\  be  1.0  with  17-digits  precision: 
In[21]  :=.v  =  /[1.0M7.60]; 

In[22]  :=  ListPlotfx, PlotRange— >{— 0.05,2.55}, 
PlotMarkers—  >  {Automatic,  Medium}] 


In[23]  :=  ListPlot  [Map  [Precision,  jt], 

PlotMarkers—  >  {Automatic,  Medium}] 
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The  tail  of  this  list  is 

In[24]  :=  jc[[55;;60]] 

Out  [24]  =  {2.,2.,0.,0.,  Complexlnfinity ,  Indeterminate} 
In[25]  :=Map[Precision,x[[55;;60]]] 

Out[25]  =  {0.84866, 0.54763, 0.2466,0.,  00,00} 

The  initial  precision  is  completely  lost  in  58  iterations. 

In [26]  :=  Clear[/*,x] 


9.2  Solving  Equations 

NSolve  tries  to  solve  equations  numerically.  They  must  not  contain  symbolic 
parameters,  only  numbers  and  unknowns.  Only  very  limited  classes  of  equations 
can  be  solved  analytically;  numerical  solution  is  possible  nearly  always.  The  option 
Reals  says  to  find  only  real  roots. 

In[27]  :=  NSoive[xA5  +x+  1  ==  0,x] 

Out [27]  =  {{x^  -0.754878},  {x^  -0.5  -  0.866025i},  {x^  -0.5  +  0.866025i}, 
{*  0.877439  -  0.744862i},  {x 0.877439  +  0.744862i}} 

In [28]  :=  NSolve  [xA  5  +  x+ 1  ==  0,x.  Reals] 

Out [2 8]  =  {{v  — y  -0.754878}} 

We  can  add  an  interval  in  which  we  want  to  find  solutions. 

In[29]  :=  NSolve[{Exp[— x]  ==  Sin[.v],0  <  x  <  Pi},x] 

Out[29]  =  {{x  0.588533},  {x  3.09636}} 

In[30]  :=  Plot [ { Exp[— \] ,  Sin [.v] } ,  {.\%  0,  Pi }] 


Out  [30] 


0.5  1.0  1.5  2.0  2.5  3.0 
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9.3  Numerical  Integration  and  Summation 

The  function  NIntegrate  integrates  numerically,  without  trying  to  do  it  analytically 
first — it  uses  an  appropriate  numerical  method  right  away.  Of  course,  integration 
limits  must  be  numbers,  and  there  must  be  no  symbolic  parameters. 

In[3 1]  :=  N  Integrate  [Sin  Lv]  /x}  {.v,  0,  Infinity}] 

Out[31]  =  1.5708 

The  option  PrecisionGoal  states  the  desired  precision  of  the  result.  If  the  result  is 
close  to  0  due  to  strong  cancellations,  it  may  be  difficult  to  attain  a  high  precision 
(i.e.,  a  small  relative  error).  Then  it  is  better  to  specify  Accuracy  Goal,  i.e.,  the 
desired  absolute  error.  The  option  WorkingPrecision  specifies  the  precision  level 
at  which  internal  calculations  are  done;  it  must  be  ^  PrecisionGoal. 

In[32]  :=  NIntegrate[Exp[— x  2],  {x\ 0, Infinity}, WorkingPrecision- >30] 

Out[32]  =  0.886226925452758013649083741785 

The  integration  method  is  selected  automatically;  however,  we  can  specify  it: 

In [33]  :=  NIntegrate[l/(l  +x*  y),{x,0,l},{y,0,l}, 

Method—  >  “Adapti  veMonteCarlo'’] 

Out[33]  =  0.822237 

In[34]  :=  i  =  NIntegrate  [Log  |x]A  2/ (x+  1 ),  {x,0. 1 },  PrecisionGoal— >30, 
WorkingPrecision— >35] 

Out[34]  =  1.8030853547393914280996072422671750 

Suppose  we  suspect  that  the  integral  i  is  a  linear  combination  of  £( 3)  and  1  with 
rational  coefficients.  FindlntegerNull Vector  tries  to  find  integer  coefficients  such 
that  the  linear  combination  vanishes: 

In[35]  :=  FindIntegerNuIlVeclor[{/,Zeta[3],  1}] 

Out  [35]  =  {2,  —3,0} 

This  means  that  2i  —  3  £(3)  =  0,  i.e.,  our  integral  is  \  £(3).  Of  course,  this  is  not  a 
mathematical  proof.  However,  if  we  increase  precision,  and  the  linear  combination 
stays  the  same,  we  can  be  practically  sure  that  the  result  is  correct  (this  is  called 
experimental  mathematics). 

NSum  is  similar. 

In[36]  :=  s  =  NSum[l /nA 4,  {n}  1 ,  Infinity} ,  PrecisionGoal— >30, 
WorkingPrecision—  >35 ,  NSumTerms—  >30] 

Out[36]  =  1.0823232337111381915160036965412 

If  we  suspect  that  the  sum  s  is  a  linear  combination  of  n4  and  1  with  rational  coeffi¬ 
cients,  we  can  do 

In[37]  :=  FindlntegerNull Viector[{^,  PiA4, 1 }] 

Out  [37]  =  {90,  — 1,0} 

4 

This  means  that  our  sum  is,  probably,  ^ . 

In[38]  :=  Clear [i\s] 
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9.4  Differential  Equations 

NDSolve  solves  differential  equations  numerically,  for  a  finite  interval  of  the 
independent  variable.  It  returns  results  in  terms  of  InterpolatingFunction;  this  result 
can  be  numerically  evaluated  for  any  value  of  the  independent  variable  in  the  given 
interval. 

In[39]  :=a=  1/2; 

In[40]  :=  ns  =  NDSolve[{y" [/]  +  a  * /[/]  +y[f]  ==  0,/[0]  ==  0,y[0]  ==  1}, 

y[f],{*,0,10}] 

Out[40]  =  {{y[/  — »  InterpolatingFunetion[{{0.,  10.}},  <>]wn 

In[41]  :=  Plot[y[r]/.ns[[l]],{f,0, 10}] 


Let’s  compare  with  the  analytical  solution. 

In[42]  :=  s  =  DSolve  [{/’[*]  +  a*yf[t]  +y[t ]  =- 


Out  [42]  =  y[t] 


1 


15 


-t/ 4 


15Cos 


a/15  t 


0,y[0]  ==  0,v[0]  ==  1  },y[t],t\ 
+  vTsSin 


In [43]  :=PlotbM/.4[l]],  0»0»10}] 


In  [44]  :=  Clear  [a,. v,  ns] 


Chapter  10 

Risch  Algorithm 


We  were  taught  at  calculus  classes  that  integration  is  an  art,  not  a  science  (in  contrast 
to  differentiation — even  a  monkey  can  be  trained  to  take  derivatives).  And  we  were 
taught  wrong.  The  Risch  algorithm  (which  is  known  for  decades)  allows  one  to  find, 
in  a  finite  number  of  steps,  if  a  given  indefinite  integral  can  be  taken  in  elementary 
functions,  and  if  so,  to  calculate  it.  This  algorithm  has  been  constructed  in  works 
by  an  American  mathematician  Risch  near  1970;  many  cases  were  not  analyzed 
completely  in  these  works  and  were  later  considered  by  other  mathematicians.  The 
algorithm  is  very  complicated,  and  no  computer  algebra  system  implements  it  fully. 
Its  implementation  in  Mathematica  is  rather  complete,  even  with  extensions  to  some 
classes  of  special  functions,  but  details  are  not  publicly  known.  Strictly  speaking,  it 
is  not  quite  an  algorithm,  because  it  contains  algorithmically  unsolvable  subprob¬ 
lems,  such  as  finding  out  if  a  given  combination  of  elementary  functions  vanishes. 
But  in  practice  computer  algebra  systems  are  quite  good  in  solving  such  problems. 
Here  we  shall  consider,  at  a  very  elementary  level,  the  main  ideas  of  the  Risch  algo¬ 
rithm;  see  [16]  for  more  details. 


10.1  Rational  Functions 


We  begin  with  a  very  simple  case — integration  of  rational  functions.  Better  methods 
than  the  partial  fraction  decomposition  exist  for  this  problem.  And  these  methods 
can  be  generalized  to  much  wider  classes  of  integrands.  Let’s  consider  an  integral 


where  N(x)  and  D(x)  are  polynomials.  If  degA  >  degD,  we  can  divide  with 
remainder;  integration  of  a  polynomial  is  trivial.  Therefore  we’ll  assume  degA  < 
degD.  The  integration  result  consists  of  a  rational  part  and  a  logarithmic  one: 
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where  at  are  the  roots  of  the  denominator  D(x),  and  Ci  are  constants.  If 


d(x) = n  h _ 


then 


d(x) = n  h _  a')di  1 


Indeed,  at  x  -a  at  the  rational  part  has  a  pole  of  the  order  di  —  1 ;  when  differentiated, 


it  becomes  a  pole  of  the  order  di,  as  needed.  The  numerator  P(x)  is  a  polynomial  of 

/K 

degree  degP  <  degD: 


P(x)  =  X  pnXn  . 


Substituting  all  these  parts  and  differentiating,  we  can  find  the  unknown  coefficients 
c i  and  pn  by  solving  a  linear  system. 

For  example,  let’s  calculate 


In[l]  :=  Res  =  p[0\/x+c[l]  *  Log[.v]  +  c[2\  *  Log[.\*  —  1] 


Out[2]  =  —  1  —  xc[l]  +x2c[  1]  +x2c[  2]  +  p[  0]  —xp[  0] 

In[3]  :=  Eqs  =  Table  [Coefficient  [Eq,  x,  n\  ==  0,  {n,0,2}] 

Out[3]  =  {- 1  +  p[0\  ==  0,  -c[l]  -  p[0\  ==  0, c[l]  +  c[ 2]  ==  0} 

In[4]  :=  Sol  =  Solve[Eqs,  {p[0] ,  c[l] ,  c[2] }]  [[1]] 

Out [4]  =  {p[0]  —i  l,c[l]  — y  — 1 , c [2]  — 1} 

In[5]  :=  Res/.  Sol 

Out[5]  =  -  +Log[— 1  -\-x]  —  Log[v] 

In[6]  :=  Clear  [Res,  Eq,  Eqs,  Sol] 


10.2  Logarithmic  Extension 


Now  we  begin  to  extend  the  class  of  integrands  and  consider 


10.2  Logarithmic  Extension 
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where  y  depends  on  v  (in  a  nonrational  way).  The  extension  is  called  algebraic  if  y 
is  a  root  of  a  polynomial  equation  p(x,y)  =  0.  For  example,  y  =  yj p(x)/q(x)  is  a 
root  of  the  equation  q{x)yn  —  p(x)  =0.  An  algorithm  for  integration  of  expressions 
belonging  to  algebraic  extensions  has  been  constructed,  but  it  requires  an  advanced 
mathematical  apparatus  [17],  and  we  shall  not  discuss  it  here. 

Extensions  which  are  not  algebraic  are  called  transcendental.  There  are  two 
important  classes  of  such  extensions.  A  logarithmic  extension  y  =  logr(x)  (where 
r(x)  is  a  rational  function)  is  characterized  by  the  property  /  =  /  /  r.  An  exponential 
extension  y  =  exp  r(x) — by  /  =  r'y. 

If  an  integral  of  an  expression  from  a  logarithmic  extension  with  some  y  = 
log  r(x)  can  be  taken  in  elementary  functions,  it  has  the  form 


f  N(x,y) 

J  D(x,y ) 


dx 


P{x,y) 

D(x,y) 


+  Y,cilogqi, 


where 

D  =  JjDf  =>  D  =  YlDt  '  ■ 
qi  are  the  irreducible  factors  of  all  Di ,  Ci  are  constants, 


P(x,y)  =  =  ZpmnX-f 


is  a  polynomial  with  unknown  (so  far)  coefficients.  Differentiating  this  general 
form  of  the  result,  putting  everything  over  a  common  denominator,  and  equating 
coefficients  of  xmyn,  we  obtain  a  linear  system  for  finding  all  unknown  coefficients. 
If  this  system  is  incompatible,  this  means  that  the  integral  cannot  be  taken  in  ele¬ 
mentary  functions. 


Example  1 


We  shall  consider  several  examples.  Let  y  =  logv  so  that  /  =  \/x.  Let’s  calculate 
the  integral 


Jydx  =  p2(x)y2  +  P\ 0 )y  +  Po(x) . 


When  differentiated,  the  degree  in  y  reduces  by  1,  so  that  the  result  is  quadratic  in  y 
(there  is  no  denominator,  and  hence  no  qi). 

In[7]  :=/[x_]  :=  \/x 

In [8]  :=  Res  =  Sum [/?[/?][*]  *v|x]Ai2,  {;?,(), 2}] 

Out[8]  =  p[0][x\  +y[x\p[  l][x]  +y[x]2p[  2}[x\ 

In[9]  :=  Eq  =  D[Res,.\]  —y[x] 

Out  [9]  =  -y[x]  +  dM  +  2y\MM  +  p[0]'[x]  +y[x]p[l]/[x}  +y[x]2p[2]'[x] 


x 


X 
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In[10]  :=  Eqs  =  Table  [Coefficient  [Eq,  y  [x] ,  n]  ==  0,  {n,  0,2}] 

Out [10]  =  {  +  p[0]'[x]  ==  0,  -1  + 


1 


+  ^[l]7^] - 0,p[2\'[x\  0 


We  see  that  P2(x)  is  a  constant: 

In[ll]  :=  p[ 2][*_]  :=  p[ 2,0];  Eqs 

out[i  i]  =  |  ALIM + /7  [o] '  [x 


- 0,  —  1  + 


2p[2,0] 


+  /7[1],[jc] - 0,True| 


Since  p\  (x)  is  a  polynomial,  the  second  equation  can  be  satisfied  only  if  P20 

In[12]  :=  p[ 2,0]  =  0;  Eqs 

Out[12]  =  |  ^  ^  —  0,  —  1  +  p[l]7[x]  —  0,True| 

The  second  equation  gives 

In[13]  :=  p[l][x_]  :=x+/?[  1,0] 

Now  the  first  equation 

In[14]  :=  Eql  =  ExpandAll[Eqs[[l]]] 

Out[14]  =  1  +  1  +  p[0]'[x] 

X 

gives  p  io  =  0: 


=  0: 


==  0 


In[15]  :=  p[l,0]  =  0;  Eql 

Out[15]  =  l+p[0]'[x\  ==  0 

Therefore  po(x)  =  —x  (omitting  the  integration  constant): 

In[16]  :=  /?[0][x_]  — x;  Eql 

Out  [16]  =  True 
In[17]  :=  Res 
Out[17]  =  —  x  +  xy[x] 

In[18]  :=  Clear[Res,  Eq,  Eqs,  Eq  1 ,  p\ 

We  have  derived  the  well-known  result 


Consider  the  integrals 


in  a  similar  way. 


x)dx  =  xlog(x)  —  x . 


x)dx,  /  log2(x)dx 


Example  2 

Let’s  calculate  the  integral 


/  y~x  d*  =  Pi{x)y2  +  Pi(x)y  +  po(x)  • 


10.2  Logarithmic  Extension 
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Here  D  =  1;  it  seems  that  there  is  a  single  q,  namely  x,  but  log(x)  =  y,  so  that  the 
logarithmic  part  contributes  nothing  new. 

In [19]  :=  Res  =  Sum[p[ra][x]  *y[x]An, {#i,0,2}]; 

In[20]  :=  Eq  =  £>[Res,x]  —y[x\/x 

Out  [20]  =  -//  +  +  MMM  +  p[  0]'H  +y[x\p[  l]'[x\  +y[x]2p[2},[x 

In[21]  :=  Eqs  =  Table  [Coefficient  [Eq.y[x] .  n]  ==  0,  {«.0.2}] 

Out [21]  =  (  MM  +  p[ 0]'[x]  ==  0,  -  -  +  MM  +  ==  0,p[2]’\x 


\ 


In[22]  :=  p[2][x_]  :=  p[ 2,0];  Eqs 


==  0 


==0_1  +  2ZM 


+  /?[l]7[x] - 0,True| 


Out[22]  =  |^ffl+p[0]/[x 

From  the  second  equation,  P20  =  1/2;  then  p\  is  a  constant: 

In[23]  :=  p[2,0]  =  1/2;  Eqs[[2]] 

Out  [23]  =  ^[l/fx]  ==  0 

In[24]  :=  p[ l][x_]  =  p[l,0];  Eqs 

Out  [24]  =  p  [o] '  [x]  ==  0,  True,  True  | 

From  the  first  equation,  p\$  =  0;  then  p$  is  a  constant  (which  may  be  omitted): 

In[25]  :=p[l,0]  =0;  Eqs[[l]] 

Out  [25]  =  p[0]'[x\  ==  0 

In[26]  :=  p[0][x_]  :=  0;  Res 

Out[26]  =  ddl 

In[27]  :=  Clear[Res,Eq,Eqs,/>] 

We  have  derived  the  well-known  result 

log(x)  1  2 

- dx  =  -  log  (x) . 

x  2 


Example  3 


Let’s  change  the  previous  integral  a  little: 


y 


x  -f- 


-  dx  =  p2{x)y  +  p  i  (x)y  +  po(x)  +  clog(x  +  1 ) 


In[28]  :=  Res  =  Sum[p[n][x]  *  ;y  [x] An, {n,  0, 2}] + c  * Log[x  + 1] 

Out[28]  =  c,  Log[l  +x]  +p[0][x]  +  ;y[x]p[l][x]  +y[x]2p[  2\[x\ 

In[29]  :=  Eq  =  Z)[Res,x]  —  y [x]/ (x  + 1) 

c  y[x]  p[  l][x]  2y[x]p[2}[x] 


Out  [29] 


1  T  X  1  ~\r  X 


+ 


+ 


X 


+  p[0\'[x\+y[x\p[\\[x\  + 


y[x]  p[ 2]'[x 
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In[30]  :=  Eqs  =  Table  [Coefficient  [Eq,  y  [x] ,  n]  ==  0,  {n,  0,2} 


°u,[3°] = { -Hb 

p[2]'M  ==  o| 


c  +  MM +  „[»]'[, 

+  X  X  L  J  L  ■ 


1  2p[2 

==  0,  —  — - h  n 


w 


1  H-  x 


X 


+p[i]'M  ==  o, 


As  in  the  previous  examples,  P2M  is  a  constant: 

In[31]  :=  /?[2][x_]  :=  p[ 2,0];  Eqs 


0,1,1311 ={if^ 


c  +  EM  [0]> 

-(-  X  x  L  J  L  ■ 


1  2/?[2,0]  ri1/r  . 

==0,-—  +  -^-^ +/>[!]'* 


1  T-  X 


0, 


True 


A  polynomial  /?i(x)  satisfying  the  second  equation  does  not  exist.  Therefore,  this 
integral  cannot  be  taken  in  elementary  functions. 

In [32]  :=  Clear[Res,  Eq,  Eqs,  p\ 


Example  4 


Let’s  consider 


/d x 

—  =  Pl(x)y  +  p0{x)+c\og(y) 

y 


(it  is  not  quite  clear  what  the  degree  of  the  right-hand  side  in  y  should  be;  we  shall 
see  in  a  moment  that  this  is  irrelevant). 

In[33]  :=  Res  =  Sum[p[n][jc]  *y[x]Aft,{#t, 0, 1}]  +c*Log[y[x]] 

Out[33]  =  c,  Log[y[x]]  +  /?[0][x]  +y[x\p[ l][x\ 

In[34]  :=  Eq  =  Expand[v[x]  *D[Res,x]  —  1] 


c 


Out[34]  =  -1  +  -  + 

X 


y[x\p[l][x] 


X 


+p[o]'M  ==  o,p[i]'W  ==oj 


+  y[x]p[0}'[x\  +y[x]2p[\]'[x] 

In[35]  :=  Eqs  =  Table  [Coefficient  [Eq,  y  [x],n]  ==  0,  {n,0,2}] 

Out[35]  =  |  — 1  +  -  ==  0,  MI1M 

From  the  last  equation,  p\(x)  is  a  constant.  The  previous  equation  shows  that  it  is 
0,  and  po(x)  is  a  constant  (it  may  be  set  to  0).  It  is  clear  that  if  we  started  from 
some  other  degree  in  y,  we  would  all  the  same  find  that  all  pn(x)  =  0.  And  the  first 
equation  cannot  be  solved  for  c. 

In[36]  :=  Clear[Res,  Eq,  Eqs] 

Consider  the  integrals 

dx  f  dx 


xy 


y+i 


in  a  similar  way. 


10.3  Exponential  Extension 
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10.3  Exponential  Extension 


Now  we  shall  consider  an  exponential  extension  with  some  y  =  expr(x).  If  an 
integral  of  an  expression  from  this  extension  can  be  taken  in  elementary  functions, 
it  has  the  form 


f  N(x,y ) 

J  D(x,y) 


dx  = 


Pjxj) 

D(x,y) 


+  X  ci  i°g  qt  ■■ 


D  =  l[D f  =>  D  =  Y[Df  , 


/V  /V  _ 

where  di  =  di  —  1  always  except  the  case  Di  =  y  in  which  dj  =  df.  This  is  because 
the  derivative  of  l/y  is  proportional  to  1/y,  the  degree  of  y  in  the  denominator 
does  not  increase.  We  exclude  y  from  the  list  of  the  factors  qi  (if  it  was  present,  of 
course)  because  logy  =  r(x)  is  a  rational  function,  and  such  a  contribution  is  already 
accounted  for.  As  usual,  we  differentiate  the  result  and  equate  to  the  integrand  to 
obtain  a  linear  system.  If  it  cannot  be  solved,  then  the  integral  does  not  exist  in 
elementary  functions. 


Example  1 


Let  y  =  ex: 

In[37]  :=/[*_] : 

Let’s  calculate 


=y[x] 


J  ydx  =  pi(x)y  +  p0{x) 


(the  degree  in  y  does  not  change  when  differentiating;  therefore  the  polynomial  in  y 
in  the  right-hand  side  should  have  the  same  degree  as  the  integrand). 

In [3 8]  :=  Res  =  Sum[/?[n][jc]  *y[jc]  n.{mO,  1}] 

Out[38]  =  ;?[0][v]  +y[v]p[l][v] 

In[39]  :=  Eq  =  £>[Res,x]  —y[x\ 

Out[39]  =  -y[x]  +y[x]p[l}[x\+p[0}'[x\  +y[x\p[  l]'[x] 

In[40]  :=  Eqs  =  Table  [Coefficient  [Eq.y[xl .  n]  ==  0,  {/2,0, 1}] 

Out  [40]  =  {p[0]'[x]  ==0,-l+p[l}ix}+p[l}'[x]  ==0} 

In [41]  :=  p[l][x_]  :=  Sum[p[l,m]  *.v  m, {m,0, 1 }];  Eqs[[2]] 

Out[41]  =  1  T  /?[1 , 0]  T  p[l ,  1]  T xp[l ,  1]  —  —  0 

From  this  equation: 

In[42]  :=  p[  15 1]  =0;  p[L0]  =  1;  Eqs 


Out  [42] 


p[0]'[x 


==  0,True} 

Therefore  po(x)  is  a  constant  (which  may  be  omitted): 

In[43]  :=  /?[0][x_]  :=  0;  Res 

Out  [43]  =y[x] 
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We’ve  got  the  expected  result. 

In[44]  :=  Clear[Res,Eq,Eqs,/>] 


Example  2 


Now  let’s  calculate 


xydx  =  p\(x)y  +  pQ(x) 


In[45]  :=  Res  =  Sum[p[n][x]  *y[x]An, {n,0, 1}] 

Out[45]  =  p[0][v]  +y[x\p[  l][x\ 

In[46]  :=  Eq  =  D[Res.x]  —  x  * y[x] 


x]p[l]'[x] 

==  0,{n,0, 1}] 


[2]] 


Out  [46]  =  -xy[x]  +  y[x\p[l][x\  +  p[0]'[x\  +y 

In[47]  :=  Eqs  =  Table  [Coefficient  [Eq .  y  [x] .  n 

Out  [47]  =  {^[O]7^]  —  0,  — x  +  p[  1]  [x]  +  p[l]7[x] - 0 

In[48]  :=  p[l][x_]  :=  Sum[p[l,m]  1}];  Eqs 

Out[48]  =  —x  +  p[  1,0]  +  p[  1, 1]  +xp[  1, 1]  ==  0 

From  this  equation: 

In[49]  :=  p[l}  1]  =  1;  p[l,0]  =  -1;  Eqs 

Out[49]  =  { [0] 7  [jc]  ==  0.  True} 

In[50]  :=  p  0][x_]  :=  0;  Res 

Out  [50]  =  (— 1  +  x)y[x] 

And  without  integration  by  parts ! 

In [51]  :=  Clear[Res,  Eq,  Eqs,  p\ 

Consider 


J  x2ydx 


in  a  similar  way. 


Example  3 

Now  let’s  try  to  calculate 


J  ^  dx  =  pi  (x)y  +  po(x)  +  clog* 


In[52]  := 
Out  [5  2] 
In  [5 3]  := 


Res  =  Sum[/?[n][x]  *y[x]An, {n,0, 1}]  +c*Log[x] 

=  c,  Log[x]  +p[0}[x\  +y[x\p[  l][x\ 

Eq  =  D[Res,x]  —y[x)//x 

c  y[x] 


Out  [5  3]  = - 1  +y[x\p[l][x\  +p[0]f[x]  +y[x\p[l]'[x 


x 


X 
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In[54]  :=  Eqs  =  Table  [Coefficient  [Eq,  y  [x] ,  n]  ==  0,  {n}  0, 1}] 

Out[54]  j-+/?[0]'[x]  ==0,  — -H-/?[l][x]+/?[l]'[x]  ==o| 

I  X  X  J 

A  polynomial  p\{x)  satisfying  the  second  equation  does  not  exist.  Therefore  this 
integral  cannot  be  taken  in  elementary  functions. 

In[55]  :=Clear[Res,Eq,Eqs] 


Example  4 


Let’s  calculate 

dx  _  pi(x)y  +  pp(x) 

y  y 

/V 

(here  D  =  y,  and  there  are  no  qf).  Of  course,  we  could  denote  e-A  as  y,  and  the 
problem  would  reduce  to  the  Example  1  with  trivial  modifications;  but  we  want  to 
observe  how  the  algorithm  works  in  this  new  case. 

In [5 6]  :=  Res  =  Sum[p[n][x]  *y[x\  n.{n.0, 1  }]/y[x] 

pirn 


Out  [5  6]  = 


p[0][x]+y[x 


y\*] 


In[57]  :=  Eq  =  Expand [v[a']  *D[Res,x]  —  1] 

Out  [57]  =  -1  —  p[0\[x]+p[0]r[x]  +y[x]p[l]'[x] 

In[58]  :=  Eqs  =  Table  [Coefficient  [Eq.  v  [x] ,  n]  ==  0,  {a?,0,  1}] 

Out[58]  {-1  —  p[0][x]  +p[  0]'[x]  ==0,p[l]'[x\  ==0} 

From  the  second  equation,  p\{x)  is  a  constant,  which  may  be  omitted — this  is  the 
integration  constant. 

In[59]  :=  /?[l][x_]  :=  0 

In[60]  :=  p[0][x_]  :=  Sum[p[0,m]  *xAm,  {m,  0,l}];Eqs[[l]] 

Out [60]  =  -1  -p[0,0]  +  p[ 0, 1]  -xp[ 0, 1]  ==  0 

Therefore 

In[61]  :=  p[ 0, 1]  =  0;  p[0»0]  =  -1;  Res 

Out[61]  = 


1 


yW 


In[62]  :=  Clear[Res,  Eq,  Eqs,  p] 


Example  5 

Let’s  consider 

/dx 

— j -  =Pi(x)y  +  po{x)+c\og(y-  1) 

y 

(now  D=  1,  and  there  is  a  single  q ,  namely  y  —  1). 
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In[63]  :=  Res  =  Sum[p[n][x]  *y[jtlA»,{#t,0, 1}]  +  c*Log[yW  —  1] 

Out[63]  =  c,  Log[— 1  +y\x]]  +  p[  0][x]  +y[x]p[l][x\ 

In[64]  :=  Eq  =  Cancel  [(v[x]  —  1)  *£>[Res,jc]j  —  1 

Out [64]  =  -1  +cy[x\  -y[x]p[l][x]  +y[x\2p[l][x\  - p[0]'[x]  +y[x\p[ 0]'[x 
y[x]p[\][x]+y[x]2p[\]'[x] 

In[65]  :=  Eqs  =  Table  [Coefficient  [Eq.  v[.v] ,  n]  ==  0,  {n}  0,2}] 

Out  [65]  =  {-l-p[0]'[x]  ==  0,c-p[l][x]+p[0]'[x]-p[l]'[x]  ==  0, 
p[l][x\+p[l]'[x]  ==0} 

In[66]  :=  p[l][x_]  :=  Sum[p[l  .m]  *xAm. {m.0. 1 }];  Eqs[[3]] 

Out[66]  =  p[l,0]+p[l,l]+xp[l,l]==0 
Therefore 

In[67]  :=  p[  1, 1]  =  0;  p[l,0]  =  0;  Eqs 

Out[67]  =  -  —  1  —  p[0]'[x\  ==  0,c  +  p[0\r[x)  ==  0.  True} 

From  the  first  equation,  po{x)  =  — x  (omitting  the  integration  constant). 

In[68]  :=  /?[0][jc_]  :=  —x;  Eqs 

Out[68]  =  {True,  —  1  +  c - 0,  True} 

In[69]  :=  c  —  1;  Res 

Out[69]  =  —  x  +  Log[—  1  -f-y[x]] 

In [70]  :=  Clear[Res,  Eq,  Eqs,  p,  c] 

Consider 

— dx 

y- 1 

in  a  similar  way  and  demonstrate  that  this  integral  does  not  exist  in  elementary 
functions. 


Example  6 


Of  course,  the  method  can  be  also  used  for  other  exponential  extensions.  For  exam¬ 
ple,  let  y  =  expx2: 

In[71]  :=/[x_]  :=2 *x*y[x] 

Let’s  consider 


J  ydx  =  pi(x)y  +  p0(x). 


In 

In 


72]  :=  Res  =  Sum[p[n][x]  *y[x]An}{n} 0, 1}]; 

73]  :=  Eq  =  D[Res,jr]  —  y[x] 

Out  [73]  =  —y[x\  +2xy[x\p[l}[x\  +  p[0]'[x\  +y[x]p[l]/[x] 

In[74]  :=  Eqs  =  Table  [Coefficient  [Eq,  y  [x] .  n\  ==  0,  {n,0, 1}] 

Out  [74]  =  { [0] 7  [jv:] - 0,-1  +  2x/?[l]  [x]  +  ^l]7^] - 0} 

In[75]  :=  p  l][x_]  :=Sum[p[l,m] *.vAm,  {/n,0J}];  ExpandAli[Eqs[[2]]] 

Out [7 5]  =  —  1  H-2jc/?[1,0]  +  p[l,  1]  +  2x2/?[l,  1]  ==  0 

This  equation  cannot  be  solved.  A  larger  degree  of  p\(x)  does  not  help.  Therefore 
this  integral  cannot  be  taken  in  elementary  functions. 

In[76]  :=  Clear[Res,  Eq,  Eqs,  p] 


10.4  Elementary  Functions 
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Example  7 

And  what  about 

J xydx  =  pi  (x)y  +  po(x)  ? 

In[77]  :=  Res  =  Sum[p[ra][jc]  *y[x]An, {w,0, 1}]; 

In[78]  :=  Eq  =  D[Res,x]  —  x* y[x] 

Out[78]  =  —xy[x\  +2xy[x\p[l][x\  +  p[0]'[x\  +y[x\p[  l]'[x\ 

In  [79]  :=  Eqs  =  Table  [Coefficient  [Eq.  y[x] .  n]  ==  0,{n,0, 1}] 

Out[79]  =  { [0] 7 [jc]  ==  0,  —  x  +  2xp[l]  [x]  +/?[l]/[x]  ==0} 

In[80]  :=  p  l][x_]  :=Sum[p[l,m]  *.vAm,  {m,(k  1 }];  ExpandAll[Eqs[[2]]] 

Out[80]  =  — x  +  2x/?[l,0]  +  p[  1, 1]  -f-2x2p[l,  1]  ==  0 

From  this  equation,  p\\  =0,  p\o  =  1/2.  The  first  equation  says  that  po(x)  is  a  con¬ 
stant  (it  may  be  omitted). 

In[81]  :=  p[  1,1]  =0;  p[  1,0]  =  1/2;  p[0][x_]  :=0;  Res 

Out[81]  =  *1 

In[82]  :=  Clear[Res,  Eq,  Eqs,  p] 

Consider 

J  x2ydx, 

in  a  similar  way. 


10.4  Elementary  Functions 

A  tower  of  extensions  can  be  constructed.  We  start  from  the  set  of  rational  functions 
N(x)/D(x).  Then  we  introduce  y  i,  which  is  either  a  root  of  a  polynomial  equation 
p  (x,y  i )  =  0,  or  logarithm  or  exponent  of  some  rational  function  of  x,  and  we  obtain 
a  first  extension — the  set  of  functions  A(x,yi)  /D(x,yi).  Then  we  introduce  y 2, 
which  is  either  a  root  of  a  polynomial  equation  p  (x,yi,y2)  =  0,  or  logarithm  or  ex¬ 
ponent  of  some  function  from  the  previous  extension,  and  we  get  a  next  extension — 
the  set  of  rational  functions  of  x,  y  1,  y2-  And  so  on.  We  should  take  care  that  an 
extension  which  seems  transcendental  is  not  in  fact  algebraic;  if  we  neglect  this, 
the  methods  designed  for  transcendental  extensions  may  break  down,  e.g.,  produce 
divisions  by  0.  For  example,  if  y\  =  ex,  then  it  would  not  be  a  good  idea  to  introduce 
the  exponential  extension  with  y2  =  e2x,  because  y2  is  not  algebraically  independent: 
y2=yj-  Similarly,  if  y\  =  logv,  then  it’s  not  reasonable  to  introduce  the  logarithmic 
extension  with  y2  =  log  2jc,  because  y2  =  yi  +  log  2  (in  this  case  the  field  of  constants 
needs  to  be  extended  by  the  transcendental  number  log  2).  In  simple  cases  such  re¬ 
strictions  are  obvious,  but  in  complicated  ones  it  is  necessary  to  decide  if  some 
function  from  some  extension  is  identical  0,  and  this  problem  is  algorithmically 
unsol vable  in  general. 
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10  Risch  Algorithm 


Such  towers  of  algebraic,  logarithmic,  and  exponential  extensions  include  all 
functions  called  elementary.  And  even  some  extra  ones:  an  algebraic  extension  can 
be  defined,  e.g.,  by  a  root  of  a  fifth  degree  polynomial  unsolvable  in  radicals.  Indeed, 
trigonometric  functions  reduce  to  exponentials,  and  inverse  trigonometric  ones — to 
logarithms.  For  each  elementary  function  there  exists  a  tower  of  extensions  to  which 
it  belongs  (it  is  not  unique). 

Suppose  we  want  to  integrate  an  elementary  function.  We  construct  a  tower  of 
extensions  to  which  it  belongs.  If  the  indefinite  integral  exists  in  elementary  func¬ 
tions,  it  belongs  to  some  further  extension  of  our  tower  by  some  extra  logarithms 
(their  number  may  be  zero).  The  Risch  algorithm  allows  one  to  decide  in  a  finite 
number  of  steps  if  the  result  exists  in  this  further  extension,  and  if  so,  to  find  it;  if  it 
does  not  exist,  the  algorithm  proves  this  fact.  In  its  classical  form,  the  algorithm  is  re¬ 
cursive  in  extensions — it  calls  itself  for  solving  integration  subproblems  in  previous 
(smaller)  extensions,  until  rational  functions.  There  is  a  simpler  and  more  efficient 
version  of  the  Risch  algorithm — to  write  down  the  general  form  of  the  result  with 
unknown  coefficients,  differentiate  it  and  equate  to  the  integrand.  Then  the  problem 
reduces  to  solving  a  linear  system.  This  approach  is  guaranteed  to  be  correct  if  we 
know  upper  bounds  on  the  degrees  of  the  polynomial  P  {x,y\  ,y2>  •  •  •)  in  its  variables. 
But  such  upper  bounds  are  not  always  known  (as  we  have  seen  in  the  examples,  they 
are  known  if  there  is  no  denominator).  Therefore  some  heuristic  rules  to  bound  the 
degrees  of  P  are  used.  This  can  give  a  situation  when  no  result  is  found,  though  it 
really  exists  (but  has  a  larger  degree  in  some  variables). 

The  Risch  algorithm  is  an  outstanding  achievement  of  mathematics  in  the 
twentieth  century.  But  it  does  not  solve  all  problems  with  indefinite  integration.  The 
answer  that  no  result  exists  in  elementary  functions  is  not  very  useful.  It  would 
be  much  better  to  get  the  result  with  some  special  functions.  There  were  attempts 
to  generalize  the  Risch  algorithm  to  some  special  functions  (the  error  function, 
poly  logarithms).  Some  of  them  are  implemented  in  Mathematica. 


Chapter  11 

Linear  Algebra 


11.1  Constructing  Matrices 

A  matrix  in  Mathematica  is  a  list  of  lists;  all  the  lists — rows  of  the  matrix — must 
have  the  same  length. 

Inlll  :=M={{aMAc,d}\ 

Out[l  }  =  {{a,b},{c,d}} 

MatrixForm  is  used  to  print  a  matrix  nicely. 

In[2]  :=  MatrixForm[Af] 

Out[2]/ /MatrixForm  = 


If  the  (/,  j)th  element  of  a  matrix  is  given  by  an  expression  depending  on  i  and  j, 
this  matrix  can  be  constructed  by  the  function  Table. 

In[3]  :=  A  =  Tableau],  {i,  1,2},  {j,  1,2}] 

Out [3]  =  {{a[l,  l],a[l,2]},  {a[ 2,  l],a[2,2]}} 

In[4]  :=B  =  Table[l /(« +  j  + 1),  (f,  1, 2},  {j,  1,2}] 


In [5]  :=  MatrixForm[A] 

Out[5]/ /MatrixForm  = 


( a[l,l]  «[1,2]\ 

y «[2, 1]  a[2,2]J 

In[6]  :=  MatrixForm[B] 

Out[6]/ /MatrixForm  = 


The  function  Array  is  similar,  but  its  first  argument  is  a  function  of  two  parameters, 
not  an  expression.  It  may  be  just  a  symbol  or  an  anonymous  function  (Function). 
In[7]  :=  A  =  Array  [a,  {2, 2}] 

Out [7]  =  {{a[l,  l],a[l,2]},{a[2,  l],a[2,2]}} 
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1 1  Linear  Algebra 


In  [8]  :=B  =  Array  [Functional,  j},  l/(i +  j  + 1)],  {2, 2}] 


Mathematica  does  not  distinguish  column  vectors  and  row  vectors;  both  are 
just  lists. 

In[9]  :=V  =  Table[v[i],{i\  1,2}] 

°ut[9]  =  {v[l],v[2]} 

In[10]  :=  V  =  Array  [v,  2] 

Out  [10]  =  {v[l],  v[2]} 

In[ll]  :=U  =  Array [n,  2] 

Out[ll]  =  {«[!], «[2]} 


11.2  Parts  of  a  Matrix 


A  matrix  element. 

In[12]  :=A[[1,2]] 

Out[12]  =  a[l,2] 

A  row. 

In[13]  :=A[[  1]] 

Out  [13]  =  {a[l,l],a[l,2]} 

A  column. 

In[14]  :=A[[ AU,2]] 

Out  [14]  =  {a[l,2],a[2,2]} 

A  new  value  can  be  assigned  to  a  matrix  element. 

In[15]  :=M[[  1,2]]  =0 

Out[15]  =0 

In[16]  :=  MatrixForm[M] 

Out  [16]/ /MatrixForm  = 


Add  1  to  the  first  row. 

In[17]  :=M[[  1]]  +  + 

Out[17]  =  {<2,0} 

In[18]  :=  MatrixForm [M] 

Out[18]/ /MatrixForm  = 

(1+a  l\ 

\  c  d) 

Add  the  second  column  to  the  first  one. 
In[19]  :=  M[[A11,1]]+  =  M[[AU,2]] 
Out[19]  =  {2  +  a,c  +  d} 

In[20]  :=  MatrixForm [M] 

Out  [20]/ /MatrixForm  = 

(2  +  a  1\ 

y  c  ~h  d  d  J 


11.4  Operations  with  Matrices  and  Vectors 
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11.3  Queries 

The  function  VectorQ  checks  if  its  argument  is  a  vector,  i.e.,  a  list  whose  elements 
are  not  lists. 

In[21]  :=  {  VectorQ [V ] ,  VectorQ [M] } 

Out  [21]  =  {True,  False} 

The  function  MatrixQ  checks  if  its  argument  is  a  matrix,  i.e.,  a  list  of  same-length 
lists. 

In[22]  :=  { MatrixQ [V] ,  MatrixQ  [M] ,  MatrixQ [{  {a.b},  {jc,v,  z}  }] } 

Out[22]  =  {False,  True,  False} 

The  argument  of  the  function  Dimensions  must  be  a  matrix.  This  function  returns 
a  two-element  list — the  numbers  of  rows  and  columns  of  the  matrix. 

In[23]  :=  Dimensions[M] 

Out[23]  =  {2,2} 

It  can  be  conveniently  used  for  simultaneous  assignment  to  two  variables. 

In[24]  :=  {nl,n2}  =  Dimensions[{{a^,c},{x,y,z}}] 

Out[24]  =  {2,3} 

In[25]  :=  nl 

Out[25]  =  2 

In [26]  :=  n2 

Out[26]  =  3 

In[27]  :=  Clear  [M,nl,n2] 


11.4  Operations  with  Matrices  and  Vectors 

Vectors  can  be  added  and  multiplied  by  scalar  expressions. 

In[28]  :=2*V  +  t/ 

Out[28]  =  {u[l}  +2v[1],m[2]  +2v[2]} 

Matrices  can  be  added  and  multiplied  by  scalar  expressions. 
In[29]  :=  MatrixForm[A  +  2  *B] 

Out[29]/ /MatrixForm  = 

(\~ f^[l,l]  j+^[l,2]\ 
y^H-#[2, 1]  ^-j-#[2,2]y 
The  scalar  product  of  two  vectors. 

In[30]  :=  VXJ 

Out[30]  =  w[l]v[l]  +  w[2]v[2] 

The  product  of  a  matrix  and  a  column  vector. 

In[31]  :=  A.V 

Out[31]  =  {a[  1,  l]v[l]  +«[l,2]v[2],a[2,  l]v[l]  +a[2,2]v[2]} 

The  product  of  a  row  vector  and  a  matrix. 

In[32]  :=  V.A 

Out[32]  =  {a[l,  l]v[l]  +a[2,  l]v[2],a[l,2]v[l]  +a[ 2,2]v[2]} 

The  product  of  two  matrices. 
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1 1  Linear  Algebra 


In[33]  :=  MatrixForm  [A .B\ 

Out[33]/ /MatrixForm  = 

(  j«[l,  1]  +  \a[  1,2]  \a[  1,1]  +  \a[\,2]  \ 

V  ]a[2, 1]  +  \a[ 2,2]  \a[2, 1]  +  ±a[ 2,2]  J 

It  is  not  commutative. 

In[34]  :=  Matrix  Form  [A.#  —  BA] 

Out[34]/ /MatrixForm  = 

(  \a[\,2]-\a[2,\]  \a[  l,r 

\—ja[l,l]  +  Y^a[2,l]  +  ja[2,2\  —  | 

Determinant  (the  matrix  must  be  square). 

In[35]  :=  Det[A] 

Out[35]  =  — a[l,2]a[2, 1]  +a[l,  l]a[2,2] 

Trace  (the  matrix  must  be  square). 

In[36]  :=  Tr[A] 

Out[36]  =  a[  1, 1]  +a[2,2] 


a[l,2]  +  ia[2,l]  J 


Transposing. 

In[37]  :=  Ma1rixForm[Transpose[A]] 

Out[37]/ /MatrixForm  = 
a[  1, 1]  a[ 2, 1] 

<z[l,2]  a[ 2,2] 

The  inverse  matrix. 

In[38]  :=  Ma1rixForm[Inverse[A]] 

Out  [38]/ /MatrixForm  = 

a  [2,2] 


a[  1,2] 


-fl[l,2]a[2,l]+a[l,l]fl[2,2] 
a[  2,1] 


-a[l,2]a[2,l]+a[l,l]«[2,2] 

fl[l,l] 


— a[l,2]a[2,l]+«[l,l]a[2,2]  —  a[l,2]a[2,l]+tf[l,lM2,2] 

A  square  matrix  can  be  raised  to  an  integer  power. 

In[39]  :=  MatrixForm[MatrixPower[ZL3]] 

Out[39]/ /MatrixForm  = 

197  1009 

im  w 

14400  6000 

The  power  —  1  is  the  inverse  matrix. 

In[40]  :=  MatrixForm [Matri x Power [ZT  —  1  ]] 

Out  [40]/ /MatrixForm  = 

48  -60 
-60  80 

This  is  the  solution  of  the  linear  system  A.X  =  V. 
In[41]  :=  Together[Inverse[A].V] 

a[2,2]v[1]  —  a[l,2]v[2]  <z[2,  l]v[l] 


°ut[41]  ^  _a[lj2]a[2, 1]  +a[l,  l]fl[2,2]’  a[l,2]a[2, 1] 

The  same  can  be  done  using  LinearSolve. 

In[42]  :=  LinearSolve[A,  V] 

a[2,2]v[l]  —  <z[l,2]v[2]  a[2,l]v[l] 


Out[42]  ^  _fl[j ;  2]fl[2, 1]  +  a[l ,  l]a[2, 2]  ’  a[l , 2}a[2, 1] 

In [43]  :=  Clear[A,£,t/,  V] 


a[  MM2]  1 
a[l,l]a[2,2]  J 


a[  Mjv[2]  \ 
a[l,l]a[2,2]J 


11.5  Eigenvalues  and  Eigenvectors 
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11.5  Eigenvalues  and  Eigenvectors 


Here  is  some  symbolic  matrix. 

In [44]  :=  MatrixForm[M  = 

{{(1  —x)A3  *  (3  +x),4*a**(1  —xa2)}  —2*  (1  —  xA2)  *  (3  —  jr)}, 
{4*x*  (1  —  xA2),— (1  +.x)A3*  (3  —  jt),2*  (1  —  jrA2)  *  (3+jt)}, 
{-2 *  (1  —  jca2)  *  (3 -x),2*  (1  -xA2)  *  (3  +x),  16 *x}}] 

Out  [44]/ /MatrixForm  = 

/  (1  —  a)3(3+a)  4a  (l— a2)  —  2(3  —  x)  (l  —  a2)  \ 

|  4a  (l— a2)  —  (3  —  a)(1 +a)3  2(3  +  a)  (l  —  x2)  J 

y  —  2(3  —  x)  (l  —  x2)  2(3  +  a)  (l  —  a2)  16a  J 

It  is  singular. 

In [45]  :=  Det [M\ 

Out  [45]  =  0 
Its  rank. 


In[46]  :=  MatrixRank[M] 

Out  [46]  =  2 

The  function  NullSpace  returns  a  list  of  vectors  forming  a  basis  of  the  null  space  of 
the  matrix,  i.e.,  the  subspace  of  vectors  nullified  by  the  matrix. 

In[47]  :=  s  =  NullSpace[M] 

In  this  case,  the  null  space  is  one-dimensional — it  has  a  single  basis  vector.  Let’s 
check  it. 

In[48]  :=  Together[M.s[[l]]] 

Out[48]  =  {0,0,0} 

The  function  Eigenvalues  returns  a  list  of  eigenvalues  of  a  matrix. 

In[49]  :=  Simplify  [Eigenvalues[M],  Element  [x. Reals]] 

Out [49]  =  { 0,  (3  +  x2) 2 ,  -  (3  +  x2) 2 } 

We  have  added  the  second  argument  to  Simplify  which  informs  Mathematica  that 
the  variable  a  is  real.  The  function  Eigenvectors  returns  the  list  of  the  corresponding 
eigenvectors  (in  the  same  order). 

In[50]  :=  Simplify [Eigenvectors[M] ,  Element^*,  Reals]] 

Out  [50]  = 

The  function  Eigensystem  returns  both.  It  is  convenient  for  simultaneous  assignment 
to  two  variables. 

In[51]  :=  {val,  vec}  =  Simplify [Eigensystem[M] ,  Element [.v.  Reals]] ; 

Let’s  check. 

In[52]  :=  Do[Print[Simplify[M.vec[[/]]  —  val[[/]]  *  vec [[/]]]].  {/.  1,3}] 

{0,0,0} 

{0,0,0} 

{0,0,0} 

In[53]  :=  Clear[A/,s,  val,  vec] 


1  H-  x  1  “hr 


1  +  a  1 


1  +  a  ’ 
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11.6  Jordan  Form 


Here  is  a  matrix  of  rational  numbers. 

In [54]  :=  MatrixForm  [M  = 

{{13/9, -2/9, 1/3, 4/9, 2/3}, 
{-2/9,10/9,2/15,-2/9,-11/15}, 
{1/5,-2/5,41/25,-2/5,12/25}, 
{4/9,-2/9,14/15,13/9,-2/15}, 
{-4/15,8/15,12/25,8/15,34/25}}] 
Out  [54]  / /MatrixForm  = 


13 

2 

1 

4 

2 

92 

i<? 

\ 

92 

3n 

9 

9 

15 

9 

15 

1 

2 

41 

2 

12 

5 

5 

25 

5 

25 

4 

2 

14 

13 

2 

94 

s9 

§ 

315 

15 

15 

25 

15 

25 

The  function  JordanDecomposition  returns  a  pair  of  matrices — the  Jordan  form  / 
and  the  transformation  matrix  P  which  reduces  our  matrix  to  its  Jordan  form. 


In[55]  :=  {PJ}  =  JordanDecomposition[M]; 
In[56]  :=  MatrixForm [7] 

Out  [5  6]/ /MatrixForm  = 

(\  00  0  0  \ 

0  2  10  0 

0  0  2  0  0 

000 1-i  0 

\000  0  1+i/ 

In[57]  :=  Matrix  Form  [P] 

Out[57]/ /MatrixForm  = 


■2 

-2 


1 


1 

2 


0  0 
1  1 
V  o  o 

Let’s  check. 


0 

0 

6 

5 

0 

_9 

10 


5i 

5i 

12 

12 

5i 

5i 

6 

6 

3 

3 

4 

4 

_  5i 

5i 

^  1 


6 

1 


J 


In[58]  :=  Ma1rixFonn[P./.Inverse[P]  —  M] 

Out[58]/ /MatrixForm  = 

/  0  000  0\ 

0  000  0 
0  000  0 
0  000  0 
\00000/ 

Here  are  the  eigenvalues  and  the  eigenvectors  of  our  matrix.  Note  that  only 
one  eigenvector  corresponds  to  the  eigenvalue  2,  because  the  corresponding  Jordan 
block  has  the  size  2x2.  The  eigenvectors  are  the  columns  of  the  transformation 
matrix  P. 


11.7  Symbolic  Vectors,  Matrices,  and  Tensors 
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In[59]  :=  {val,  vec}  =  Eigensystem[M]; 
In[60]  :=  val 

Out[60]  =  {2,2,1  +i,  1  —  i,  1} 

In[61]  :=  vec 


^  0,1, oj, {0,0, 0,0,0}, 

o  r' 

— plj,{-2,-2,0,l,0} 


5i  5i 
12’  ~6 


In[62]  :=  Clear[M,y,f>,  val,  vec] 


3  5i 
4,_6’1 


11.7  Symbolic  Vectors,  Matrices,  and  Tensors 


Let’s  inform  Mathematica  that  u ,  v,  and  w  are  symbolic  three-dimensional  vectors 


u,v 


with  real  components.  The  scalar  product  is  u.v,  and  the  vector  product  is  Cross 
The  function  TensorReduce  simplifies  expressions  with  vectors. 

In[63]  :=  $Assumptions  =  Elemental  v|w,Vectors[3, Reals]] 

Out[63]  =  (u\v\w)  £  Vectors [3, Reals] 

In[64]  :=  TensorReduce[u.v  —  v.u ] 

Out  [64]  =  0 

In[65]  :=  TensorReduce[Cross[i/,  v]  +  Cross[v,u]] 

Out[65]  =  0 

In[66]  :=  TensorReduce[//. Cross [v\  w]  +  v.Cross [w,u]  +w.Cross[u,v]] 

Out[66]  =3 ux  v.w 

In[67]  :=  TensorReduce  [Cross  [w.  Cross  [v,  HD 

Out[67]  =  —wu.v  +  vu.w 

In[68]  :=  TensorReduce [m  (2  *  v  +  3  *  w)] 

Out[68]  =  2  u.v  +  3  u.w 

Now  let’s  say  that  u  and  v  are  d-dimensional  vectors,  and  S  and  A  are  d  x  d 
matrices,  S  symmetric  and  A  antisymmetric. 

In[69]  :=  $Assumptions  =  {Element[w|v,  Vectors  [d. Reals]], 

Element  [5,  Matrices[{d.  d}.  Reals,  Symmetric[{  1,2}]]], 

Element  [A,  Matrices  [{d,  d},  Reals,  Antisymmetric[{  1,2}]]]}; 

In[70]  :=  TensorReduce [v. A. (w  4-  v)] 

Out[70]  =  —u.A.v 

In[71]  :=  TensorReduce[i/.5. V  -+-  v’.^.ii] 

Out[71]  =  2  u.S.v 

The  tensor  product  SijAki  is  contracted  in  j  and  k  and  in  i  and  /. 

In[72]  :=  TensorReduce[TensorContract[TensorProduct[S,A],{{2,3},{l,4}}]] 

Out  [7  2]  =  0 

The  Riemann  curvature  tensor  has  the  properties  Rijki  =  — Rjiki  and  Rijki  = 


R 


kl  i  j  • 
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In[73]  :=  $Assumptions  =  Element^,  Arrays[{4, 4,4,4},  Reals, 

{{{2, 1,3,4},— 1}, {{3,4, 1,2},  1}}]] 

Out [7 3]  =  R  G  Arrays[{4,4,4,4},Reals, {{Cycles[{{l,2}}],  —  1}, 

{Cycles[{{  1,3},  {2,4}}],  1},  {Cycles[{{3,4}}],  —  1}}] 

In [74]  :=  TensorReduce [TensorContract [R,  {{1,2}}]] 

Out  [74]  =  0 
The  Ricci  tensor. 

In [75]  :=  R2  =  TensorContract[R, {{1,3}}] 

Out  [75]  =  TensorContract  [R,  {{1,3}}] 

In[76]  :=  {TensorRank[R2] ,  TensorDimensions[R2] ,  TensorSy mmetry [R2] } 

Out[76]  =  {2,  {4, 4},  Symmetrical,  2}]} 

R-i  jkl  Ri  jkl  4“  Ri  jkl  Rkl  ji  4“  Ri  jkl  R ik  jl- 

In[77]  :=  TensorReduce[ 

TensorContract[TensorProduct[R,R],  {{1,5},  {2,6},  {3,7},  {4,8}}]+ 
TensorContract[TensorProduct[/?,/?j ,  {{ 1 , 7},  {2, 8},  {3, 6},  {4, 5}}  + 
TensorContract[TensorProduct[R,R] ,  {{ 1 , 5},  {2, 7},  {3, 6},  {4, 8}}]] 

Out  [77]  =  TensorContract[R(g)R,  {{1,5},  {2,7},  {3,6},  {4, 8}}] 

Unfortunately,  Mathematica  cannot  take  Rijki  +  Rm  j  +Rii  jk  =  0  into  account. 

In[78]  :=  $Assumptions  =  True; 


Chapter  12 

Input-Output  and  Strings 


12.1  Reading  and  Writing  .m  Files 

When  developing  any  nontrivial  Mathematica  program,  it  is  better  to  write  it  in  a 

text  file,  using  a  text  editor,  and  then  to  read  it  into  a  fresh  Mathematica  session. 

In  this  way,  your  actions  will  be  reproducible.  You  can  fix  a  bug  and  see  what  has 

changed.  Suppose  we  have  a  text  file  called  wrong. m.  It  contains  the  text 

In[l]  :=  FilePrinlpwrong.m”] 

a=xA2+2*x*y+yA2; 

b=xA3+3*xA2*y 

+3*x*yA2+yA3; 

We  can  read  it.  Now  the  variables  a  and  h  have  values: 

In[2]  :=  << wrong. m 
In[3]  :=  {a,b} 

Out[3]  =  {x2  +  2 xy  +  y2 .  x3  +  3x2  y  } 

The  value  of  b  is  not  what  we  expected.  Why?  When  Mathematica  sees  an  end  of  a 
line,  it  checks  if  the  text  read  so  far  forms  a  syntactically  correct  expression.  If  so,  the 
expression  is  considered  complete;  the  next  line  starts  a  new  expression.  Otherwise, 
the  next  line  is  considered  a  continuation  of  the  current  expression.  Thus  our  file 
wrong. m  contains  not  two  but  three  expressions:  two  assignments  (to  a  and  b)  and 
a  separate  polynomial  consisting  of  two  terms.  One  way  to  prevent  such  unintended 
splitting  of  multiline  expressions  is  to  place  a  binary  operator  (e.g.,  +  or  — )  at  the 
end  of  each  line.  Mathematica  always  writes  its  result  in  such  a  way.  But  it  is  easy 
to  forget  about  it  when  writing  a  long  expression  in  a  text  editor.  Also,  if  we  paste 
results  from  some  other  system  into  a  Mathematica  program,  it  would  be  tedious 
and  error-prone  to  bring  long  expressions  to  such  a  form  by  hand.  It  is  better  to 
enclose  each  multiline  expression  in  extra  parentheses,  then  any  incomplete  subset 
of  lines  is  not  syntactically  correct.  Therefore  we  edit  our  wrong. m  and  obtain  a  file 
right,  m: 
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In [4]  :=  FilePrint  [’’right,  m”] 

a=xA2+2*x*y+yA2; 

b=(xA3+3*xA2*y 

+3*x*yA2+yA3); 

Now  everything’s  all  right: 

In[5]  :=  «right.m 
In[6]  :=  {a,b} 

Out[6]  =  {x2 +  2xy  +  y2,x3  +3x2y+3xy2+y3} 

In[7]  :=  Clear [ci,  b] 

Let  us  modify  the  file: 

In [8]  :=  FilePrint[”right2.m”] 

a=xA2+2*x*y+yA2; 

(xA3+3*xA2*y 

+3*x*yA2+yA3) 

Now  the  last  expression  is  not  an  assignment,  but  just  a  polynomial.  What  happens 
if  we  read  it? 

In [9]  :=  «right2.m 

Out  [9]  =  v3  +  3  x2y  +  3  xy2  +  y3 

In[10]  :=  a 

Out[  1 0]  =  x2  +  2xy  +  y 2 

The  operator  <<  (its  full  name  is  Get)  returns  the  value  of  the  last  expression. 
Therefore,  we  can  use  it  in  an  assignment  (or  as  an  argument  of  any  other  function): 
In[ll]  \—b—  «right2.m 
Outf  111  =  v3  +  3  x2y  +  3xy2  +  y3 

In[12]  :=  {a,b} 

Out  [12]  =  {x2  +  2xy  +  y2,  v3  +  3v2y  +  3xy2  +  y3  } 

In[13]  :=  Clear [b\ 

The  function  Get  tries  to  find  the  file  in  all  directories  in  the  list  $Path.  Its  default 
value  contains,  in  particular,  the  current  directory  You  can  add  more  directories 
to  it  using  list  operations,  such  as  Append,  Prepend,  or  Join. 

And  this  operator  (its  full  name  is  Put)  writes  the  value  of  an  expression  into  a  file. 
The  value  is  written  in  the  input  form,  and  hence  can  be  later  read  by  Mathematica. 
In[14]  :=  a»result.m 
In[15]  :=  FilePrint[”result.m”] 
xa2  +  2*x*y  +  yA2 
In[16]  :=  Clear[a] 

In[17]  :=a=  «result.m 
Out  [17]  =xljr2  xy  +  y2 
In[18]  \—a 

Out[  1 8]  =  x2  +  2  xy  +  y2 

The  function  >>  writes  just  an  expression,  not  an  assignment  to  some  variable. 
Often  it  is  more  useful  to  write  an  assignment  (or  several  of  them)  which  defines 
some  variable  (or  function).  Suppose  we  have 

In[19]  :=/[0]  =  1;  /[«_]  :=n*f[n-  1] 
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We  can  save  the  definition  of  the  function  /  into  a  file: 

In[20]  :=  Save[”f.m”,/] 

In[2lj  :=  FilePrint[”f.m”] 

f[0]  =  1 

/[«_]  :=  n*f{n  —  1] 

In[22]  :=  Clear[/] 

In[23]  :=  «f.m 
In[24]  :=  /[10] 

Out  [24]  =  3628800 
In[25]  :=  Clear[/] 


12.2  Output 


The  function  Print  prints  expressions  (including  strings,  plots,  etc.)-  It  does  not  sep¬ 
arate  them  by  spaces,  so  that  it  is  usually  a  good  idea  to  insert  ”  ”  between  expres¬ 
sions.  It  adds  a  newline  at  the  end. 

In[26] 

27 


=  s  =  ”A  strings\nwith  a  newline”; 

=  P  =  Plot3D  [a ,  (x,  - 1 , 1 } ,  (y,  - 1 , 1 }] ; 
28]  :=  Prints,”  ”,/>] 

Out[28]  =  A  strings 


In 

In 


In [29]  :=  Clear [p] 

The  function  Print  is  most  useful  when  you  want  to  know  what  happens  at  some 
point  deep  inside  your  own  function  when  it  is  called.  If  you  want  to  write  expres¬ 
sions  to  a  file  instead,  use  Write: 


In [30]  :=  /  =  OpenWrite[”res.m”] 
Out  [30]  =  OutputStream[res.m,  19] 
In  [31]  :=  Write  [/,£];  Write  [/.£/] 

In 32  :=  Close/] 

Out[32]  =  res.m 

In[33]  :=  FilePrint[”res.m”] 
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A  strings \n with  a  newline 
xa2  +  2*x*y  +  yA2 

Expressions  are  written  in  the  input  form  and  can  be  read  later. 

In [34]  :=  Clear [s^a] 


12.3  C,  Fortran,  and  TgX  Forms 

Suppose  you  have  derived  analytically  a  valuable  expression  a: 

In[35]  :—a  —  Sin[x]A2/jrA2—  1 

.  Sinbr]2 

Now  you  want  to  do  some  large-scale  numerical  calculations  with  it.  In  order  to 
avoid  possible  errors  when  translating  this  expression  into  a  form  suitable  to  inclu¬ 
sion  into  a  numerical  program,  it  is  a  good  idea  to  do  this  step  automatically.  The 
function  CForm  converts  an  expression  into  a  form  which  can  be  inserted  into  a  C 
(or  C++)  program. 

In[36]  :=  CForm[a] 

Out[36]  =  -1  +  Power(Sin(x),2)/Power(x,2) 

The  macros  Power,  Sin,  and  friends  are  defined  in  the  file  mdefs.h  which  is  supplied 
with  Mathematica.  If  the  expression  contains  special  functions,  you  will  need  some 
extra  C  libraries  which  can  calculate  them  numerically.  Of  course,  it  is  better  to 
write  the  C  form  of  an  expression  into  a  file  and  then  insert  it  into  your  program.  For 
those  old-fashioned  enough  to  do  numerical  computations  in  Fortran,  there  is  also 
FortranForm. 

In[37]  :=  Fortran  Form  [a] 

Out[37]  =  -1  +  Sin(x)**2/x**2 

At  last,  all  computations  are  done,  and  you  are  writing  an  article  to  be  submitted 
to  a  scientific  journal.  You  want  to  include  your  valuable  expression  a  and  to  avoid 
errors  in  process  of  doing  so.  Scientific  articles  are  written  in  FT EX  (in  most  cases). 
The  function  TeXForm  converts  an  expression  into  a  form  which  can  be  inserted 
into  a  FTEX  file. 

In[38]  :=  TeXForm [«] 

Out[38]  =  \frac{\sin  a2(x)}{xa2}-1 
In[39]  :=  Clear[a] 


12.4  Strings 

The  simplest  string  operation  is  concatenation: 
In[40]  :=  si  =  ’’This”;  s2  =  ”is”  ;  s3  =  ”a  string”; 
In[41]  :=s  =  sl  <>  ”  ”  <>  s2  <>  ”  ”  <>  s3 
Out  [41]  =  This  is  a  string 
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In[42]  :=  FullForm  [s] 

Out  [42]/ /FullForm  = 

’’This  is  a  string” 

In[43]  :=  StringLength[.v] 

Out  [43]  =  16 

In [44]  :=  Clear  [s,sl.s2,s3] 

Mathematica  has  string  patterns  and  substitutions. 

In[45]  :=  StringReplace[”abcabd”  ”ab”  ->  ”AB”] 

Out  [45]  =  ABcABd 

x  _  means  an  arbitrary  (single)  character. 

In[46]  :=  StringReplace[”alb  a2b  a3c”, a  x_  b  -¥  A  x  ~~  B] 

Out [46]  =  A1B  A2B  a3c 

In[47]  :=  StringReplace[”al  b2  a  12b”. 

3.  X  _  rs^r^u  b  y  _  - — ^  A  y  rsjn*j  R  rsjrsj  j/j 

Out  [47]  =  A2B1  al2b 

Internally,  these  patterns  are  the  function  StringExpression. 

In [48]  :=  FullForm[a  ~~  x_] 

Out[48]/ /FullForm  = 

StringExpression  [a,  Pattern  [x,  Blank  [] 

A  pattern  with  two  identical  arbitrary  characters. 

In[49]  :=  StringReplace[”albl  alb2  a2b2”, 

a  ~~  x -  b  rsjnu  X_  =4  A  X  X  B] 

Out[49]  =  A1  IB  alb2  A22B 
b|c  means  b  or  c. 

In[50]  :=  StringReplace[”abcd  abcd”,b|c  — y  X] 

Out  [50]  =  aXXd  aXXd 

x__  means  any  nonempty  sequence  of  characters. 

In [51]  :=  StringReplace[”ab’\a  ~~  x__  ~~  b  ~~  x__  — >  A  ~~  x  ~~  B  ~~  x] 

Out  [51]  =  ab 

In[52]  :=  StringReplace [”a  1 2b  1 2”, 

a  X r>u>r^j  |)  rsjr^j  X — }  A  r^jrsj  X  R  ro/v  j] 

Out  [5 2]  =  A12B12 

x _ means  any  sequence  of  characters  (including  empty). 

In [5 3]  :=  StringReplace  [”ab”,  a  ^^x _ ~~  b  ~~  x _ — >  A  x  B  ~~  x] 

Out  [5  3]  =  AB 

In[54]  :=  StringReplace[”a  1 2b  1 2”, 

a  ~~  x _ ~~  b  ~~  x _ — y  A  ~~  x  ~~  B  ~~  x] 

Out  [54]  =  A12B12 

As  in  the  case  of  general  patterns,  / ;  means  a  condition  (such  that). 

In[55]  :=  StringReplace[”albl  alb2”, 

a  ~~  x -  r^rsj  b  ~~  v _/ ;x!=y  — y  A  x  y  rsjru  R] 

Out [5 5]  =  albl  A12B 

The  function  StringMatchQ  tests  if  a  string  matches  a  pattern. 
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In[56]  :=  {StringMatchQ[’,albr,,a~~x_~^b^~x_]5 
StringMatchQ[”a  1  b2”,  a  ~~  x_  ~~  b  ~~  x_], 

StringMatchQ[”alblc”,  a  x_  ~~  b  ~~  x  -]} 

Out[56]  =  {True,  False,  False} 

The  function  StringFreeQ  tests  if  there  are  no  substrings  matching  a  pattern. 

In[57]  :=  {StrmgFreeQ[”albr’,a  ~~x_  b  ~~x_], 

StringFreeQ[”alb2”,  a  x_  b  x_] , 

StringFreeQ[”alblc”,  a  x_  b  X.}} 

Out  [57]  =  {False,  True,  False} 

The  function  StringSplit  splits  a  string  at  each  occurrence  of  a  pattern;  if  the 
second  argument  is  not  given,  then  at  each  white  space. 

In[58]  :=  StringSplit  [”xxa  1  byya2bzz’\  a  ~~x_  b] 

Out[58]  =  {xx,yy,zz} 

In[59]  :=  StringSplit [”xx  yy  zz\nuu\tvv\t\t  ww”] 

Out[59]  =  {xx,yy,zz,uu,  vv,  ww} 

Mathematica  contains  many  more  string  manipulation  functions  and  additional 
powerful  features  of  string  patterns  and  can  be  used  for  text  processing  instead  of 
Perl.  For  more  details,  see  the  online  help. 


Chapter  13 

Packages 


13.1  Contexts 

When  writing  a  large  program,  it  is  easy  to  accidentally  use  one  symbol  for  two 
different  quantities  in  different  parts  of  the  program.  This  leads  to  difficult-to-find 
bugs.  This  is  especially  true  if  parts  of  the  program  are  written  by  different  per¬ 
sons  (in  particular,  when  some  packages  from  the  standard  library,  or  third-party 
packages,  are  used).  To  avoid  such  problems,  contexts  are  used. 

In  Mathematical  a  full  symbol  name  consists  of  two  parts:  the  context  and  the 
short  name.  Two  symbols  in  different  contexts  may  have  the  same  short  name.  For 
example,  the  global  symbol  a  and  the  symbol  x  in  the  contexts  a  and  h  are  unrelated. 
In[l]  :=  x  =  1;  dx  =  2;  {x}dx}dx} 

Outfl]  =  {  l,2,fc*} 

Contexts  may  be  nested.  Here  the  variable  x  lives  in  the  context  b  which  lives  in  the 
context  a  (and  thus  is  unrelated  to  the  global  context  b  used  above). 

In[2]  :=  ddx 

Out  [2]  =  ab"x 

The  current  default  context  is  held  in  the  variable  $Context.  It  is  used  when  a 
new  symbol  is  created  without  specifying  its  context. 

In[3]  :=  $Context 

Out[3]  =  Global' 

When  a  symbol  without  an  explicit  context  is  used,  it  is  being  searched  in  contexts 
specified  in  $ContextPath. 

In[4]  :=  $ContextPath 

Out  [4]  =  {PacletManager,  Quantity  Units",  WebServices",  System",  Global"} 

Built-in  symbols  live  in  the  context  System". 

In  [5]  :=  {Context  [a]  ,  Context  [c/"x] ,  Context  [6"x]  ,  Context  [c/"6"x] ,  Context  [Pi] } 

Out[5]  =  {Global",  a",/?",  ad,  System"} 

You  can  change  $ContextPath  using  standard  list  functions.  The  function  Remove 
removes  symbols  from  the  system. 

In[6]  :=  Clear  [x,  dx\ ;  Remove  [<fx,  d x,  ad x\ 
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13.2  Packages 

Mathematica  comes  with  a  library  of  packages  extending  its  built-in  functionality. 
A  package  can  be  loaded  by 

In[7]  :=  << Quaternions" 

Now  this  context  is  prepended  to  $ContextPath. 

In[8]  :=  $ContextPath 

Out[8]  =  {Quaternions",  PacletManager",  Quantity  Units",  WebServices", 

System",  Global"} 

Short  names  will  be  searched  in  this  context  first,  possibly  shadowing  variables  and 
functions  from  Global". 

In[9]  :=  Context[Quatemion] 

Out  [9]  =  Quaternions" 

The  package  Quaternions  lives  in  the  directory  Quaternions,  which  lives  in  the  stan¬ 
dard  library  directory. 

Many  additional  packages  are  available  at 
http://library.wolfram.com/infocenter/MathSource/.  You  can  download  them  and  in¬ 
stall  somewhere  in  your  $Path. 

You  can  instruct  Mathematica  to  load  a  package  whenever  any  function  defined 
in  it  is  used. 

In[10]  :=  DeclarePackagep'NumericalCalculus"”. 

{’’EulerSum”,  ’’NLimit”,  ’’NET,  ’’NSeries”,  ’’NResidue”}] 

Out[10]  =  NumericalCalculus" 

In[ll]  :=ND[xa2^1.0] 

Out[ll]  =2. 


13.3  Writing  Your  Own  Package 
Begin,  End 

Begin  [”a"”]  changes  the  default  $Context;  all  symbols  defined  after  this  will  live  in 
this  context. 

In[12]  :=  Begin  [’V”] 

Out  [12]  =  a 

In[13]  :=  $Context 

Out[13]  =  a 

In[14]  :—z  —  0;  Context  [z] 

Out  [14]  =  a 

End[]  restores  the  previous  $Context. 

In[15]  :=  End[] 

Out[15]  =  a 


13.3  Writing  Your  Own  Package 


107 


In[16]  :=  $Context 

Out  [16]  =  Global' 
In[17]  :=  dz 
Out[17]  =  0 


BeginPackage,  EndPackage 

BeginPackage[”a'”]  sets  $Context  and  changes  $ContextPath  in  such  a  way  that  only 
the  contexts  a  and  System'  are  available. 

In[18]  :=  BeginPackage[’V”] 

Out  [18]  =  a 
In[19]  :=  $Context 
Out[19]  =  a 
In[20]  :=  $ContextPath 
Out[20]  =  {a',  System'} 

In[21]  :=  u  =  1; 

EndPackage []  restores  the  previous  $Context;  ContextPath  gets  its  old  value 
prepended  by  a  ,  so  that  symbols  defined  after  BeginPackage[a']  remain  available. 

In[22]  :=  EndPackage[] 

In[23]  :=  $Context 
Out[23]  =  Global' 

In[24]  :=  $ContextPath 

Out  [24]  =  {a,  NumericalCalculus',  Quaternions',  PacletManager, 

Quantity  Unit  s',  WebServices',  System',  Global'} 

In[25]  :=  u 
Out  [25]  =  1 

In [26]  :=  Clear[z?n] 


A  Typical  Package 

A  simple  package  looks  like  this. 

In[27]  :=  FilePrint[”APackage.m”] 

B  eginPackage  [’  ’  APackage'  ”] 
f::usage  =  ”f  squares  its  argument” 

Begin  [’’'Private'”] 
g[x.\  :=  xa2 
f[x~]  ■■=  Expand [g[x]' 

End[] 

EndPackage  [] 

After  B eginPackage [” APackage'”],  publicly  available  functions  and  variables  of 
the  package  are  introduced,  usually  by  assignments  to  their  usage  messages. 
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Implementation  of  the  package  is  done  in  the  context  APackagevPrivate\  which 
may  contain  additional  functions  and  variables  (not  seen  by  users  of  the  package). 

In[28]  :=  <<APackage 
In[29]  :=?/ 

Out  [29]  =  f  squares  its  argument 
In[30]  :=f[a  +  b\ 

Out[30]  =  a2  +  lab  +  b 2 


Part  II 
Computer  Classes 


Before  spending  your  time  and  effort  on  catching  a  lion ,  check:  maybe,  somebody 
has  already  caught  it,  and  it  is  available  for  download  at  http: //library. wolf  ram. 
com/  inf o  c  ente  r/ MathS  ource/ 


Chapter  14 

Plots 


After  typing  a  Mathematica  command  in  its  notebook  interface,  you  can  send  it  to 
the  kernel  (which  performs  calculations)  by  pressing  Shift-Enter.  The  result  appears 
in  the  output  cell  which  follows  your  input  cell.  Both  are  nested  in  an  outer  cell 
representing  a  calculation  step.  Later  you  can  return  to  this  input  cell,  edit  the  com¬ 
mand,  and  execute  it  again.  The  old  output  will  be  replaced  by  the  new  result.  It  is 
allowed  to  type  several  commands  in  a  single  input  cell,  but  this  is  not  convenient — 
don’t  do  so  unless  you  have  good  reasons. 

Mathematica  Help  contains  all  the  necessary  information.  The  Help  menu  con¬ 
tains  Documentation  Center,  Function  Navigator,  and  Virtual  Book  (among  other 
things).  You  can  quickly  get  help  for  a  specific  function  if  you  select  it  with  the 
mouse  and  press  FI. 


14.1  2D  Plots 

Function  Plot 

See  Help  -A  Virtual  Book  -a  Visualization  and  Graphics  -A  Graphics  and  Sound  -A 
Basic  Plotting,  and  Help  -A  Function  Navigator  -A  Visualization  and  Graphics  — > 
Function  Visualization  -A  Plot  for  more  details. 
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14  Plots 


In[l]  :=  Plot[Sin[x],  {x, — 10, 10}] 


Several  Functions 


In[2]  :=  Plot[{Sin[x],Cos[x]}, {x, — 10, 10}] 


You  can  set  colors  and  styles  of  the  curves  (Virtual  Book  Visualization  and 
Graphics  Graphics  and  Sound  Options  for  Graphics;  Function  Navigator 
Visualization  and  Graphics  — >  Options  and  Styling  Plotting  Options  Plot- 
Style). 


14.1  2D  Plots 
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In[3]  :=  Plot  [{  Sin  [a]  ,  Cos  [x] }  ,  {xr  —  1 0t  1 0} ,  PlotStyle—  >  {Red,  {Blue,  Dashed}  }] 


Unbounded  Function 


In[4]  :=  Plot  [Tan  [.v] ,  {x,  — 10, 10}] 


Mathematica  has  chosen  some  y  scale.  How  to  set  it?  Find  in  the  Help. 
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14  Plots 


In[5]  :=  Plot  [Tan  [a]  ,  {a%  —  1 0, 10},  PlotRange—  >{—3,3}] 


Logarithmic  Scale 


If  our  function  is  positive  and  varies  by  orders  of  magnitude  in  our  region,  it  is 
convenient  to  use  logarithmic  scale  in  y.  If  the  independent  variable  also  varies  by 
orders  of  magnitude,  the  A-axis  scale  also  should  be  logarithmic  (Function  Navigator 
Visualization  and  Graphics  Function  Visualization  LogPlot,  LogLogPlot). 

In[6]  :=  LogPlot[Exp[x]  +  !,{*, -10, 10}] 


14.1  2D  Plots 
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In[7]  :=  LogLogPlot^  +  2*x, {x,  10A - 2, 10A2}] 


Parametric  Curve 


Lissajous  figures. 

In[8]  :=  Mampulate[ParametricPlot[{Sin[tf  */  +  <?],  Sin[b  */]},{/,  0, 2  *  Pi}] , 
{a,  1, 10, 1,  Appearance—  >”Labeled”}, 

{ b ,  1, 10, 1 ,  Appearance—  >”Labeled”  } ,  {  {  c\  Pi/2  } ,  0,  Pi /2  }  ] 
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14  Plots 


Implicit  Plots 


In[9]  :=ContourPlot[xA2+yA2==  1, {*,-!, l},{y, -1,1}] 


In[10]  :=  ContourPlot[x *y,{x,—4,4},{y,—4,4}, Contours—  > { 1 , 2 , 3 , 4}] 


Out  [10] 


4 


2 


0 


-2 


-4 


-4 


-2 


0 


2 


4 
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Experimental  Points 


In  real  life  they  are  being  read  from  a  file.  We  don’t  have  such  a  file  at  hand,  and 
therefore  we’ll  generate  a  list  of  “experimental”  points  according  to  some  formulas. 

In[ll]  :=  l  =  Table[#[Sin[Pi  *  n /20]] ,  {n,  0, 20}] 

Out[l  1]  =  {0., 0.156434, 0.309017, 0.45399, 0.587785, 0.707107, 0.809017, 
0.891007,0.951057,0.987688,1. ,0.987688, 0.951057, 0.891007, 0.809017, 
0.707107,0.587785,0.45399,0.309017,0.156434,0.} 

Function  Navigator  Visualization  and  Graphics  Data  Visualization  List- 
Plot. 

In[12]  :=  pi  =  ListPlot[/] 


1.0 


0.8 


0.6 

Out  [12]  = 

0.4 


0.2 


i_i_ i_ i_ i_ i_ i_ i_ i_ i_ i_ 4. 

10  15  20 


Let’s  try  to  fit  these  points  by  a  quadratic  polynomial. 

In[13]  :=  /  =  Fit[/,  {Ljc,jca2},.y] 

Out[13]  =  -0.24953  +  0.222936x-0.0101334x2 

In[14]  :=  p2  =  Plot[/,  {x,  1 , 21 }] 


And  now  the  curve  and  the  points  on  a  single  plot  (Function  Navigator  — >  Visualiza¬ 
tion  and  Graphics  Data  Visualization  Annotation  &  Combination  Show). 
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14  Plots 


In[15]  :=  Showfpl,p2] 


In[16]  :=  Clear [/,/,pl,p2] 


Inequalities 


Function  Navigator  Visualization  and  Graphics  Function  Visualization 
RegionPlot. 

In[17]  :=RegionPlot[.xA2+yx2<  l&&jc+y>0,{x,-l»l},{j»-l.l}] 


Out  [17] 


1.0 


0.5 


0.0 


0.5 


1.0 
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Vector  Fields 


In[18]  :=  VectorPlot[{y + 0.5  *x,  -x+ 0.5  *y},  {x,  -1, 1},  {y,  -1, 1}] 


1.0 


0.5 


Out  [18]  =  o.o 


-0.5 


-1.0 


-1.0  -0.5  0.0  0.5  1.0 


*  \  \  \  \ 
t  I  I  \  \ 


y  /  I 

*  s  /  /  )  ^  ^  i 

^  ^  y  /  /  /  f r  Y 

*  *  y  /  /  r  r \i. 

// /  /  i 


j _ I _ i _ i _ i _ i _ L 


J _ I _ L_ 


J _ I _ I _ I _ I _ I _ I _ I _ L 


J _ I _ L 


In[19]  :=  StreamPlot[{y + 0.5  *x,  -x+0.5  *y},  {x,  -1, 1},  {y»  -1, 1}] 


Out  [19] 
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14.2  3D  Plots 


Hat 


Let’s  draw  a  hat  with  a  wavy  pent.  First  define  a  function. 

In[20]  :=f[x.,y.]  :=  Wlth[{r  =  Sqrt[jrA2+yA2]},Sin[r]/r] 

Virtual  Book  Visualization  and  Graphics  Three-Dimensional  Surface  Plots; 
Function  Navigator  Visualization  and  Graphics  Function  Visualization 


Plot3D. 


In[21]  :=  Plot3D[/‘[jc,y],  {x, — 10, 10},  {>,-10, 10}] 


Out  [21]  = 


And  why  is  the  top  of  the  hat  cut  off? 

In[22]  :=  Pk*3D[flx,y],  {*,  - 10, 10},  {v,  - 10, 10},PlotRange->All] 


Out  [22] 


10 
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All  3D  plots  can  be  rotated  by  the  mouse.  If  you  press  Shift,  the  mouse  will  move 
the  plot;  and  if  you  press  Ctrl,  then  it  will  resize  it. 

In[23]  :=  Clear[/] 


Sphere 


In[24]  :=  ParametricPlot3D[{Sin[0]  *Cos[0],Sin[0]  *Sin[$],Cos[0]}, 

{6APiM<M,2*Pi}] 


Out  [24]  = 


Donut 


Take  a  point  on  the  v-axis  at  a  distance  R  from  the  origin;  draw  a  circle  of  a  radius  r 
around  it  in  the  x,  z  plane;  and  rotate  it  around  the  z  axis.  You  will  get  a  donut  (torus). 
Let  R  be  1 ;  r  can  be  tuned  by  the  mouse  from  0  to  1,  with  the  initial  value  0.3. 


In 

In 


25]  :=R=  1; 

26]  :=  Manipulate[ 

Parame1ricPlot3D[ 

{ (R  +  r  *  Cos[0] )  *  Cos[0] ,  (R  +  r  *  Cos[0] )  *  Sin[0] ,  r  *  Sin[0] } . 
{^*0, 2*  Pi},  (0.0, 2*  Pi}], 

{{r, 0.3}, 0,1}] 
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In[27]  :=  Clear[/?] 


Spiral 

ParametricPlot3D  can  draw  curves,  too. 

In[28]  :=  Manipulate[ParametricPlot3D[{Cos[t],Sin[/],a */},  {r,0,20}, 
PlotRange— >{{— 1, 1},  {—1, 1},{0,2}}], 

{{a, 0.1}, 0,0.2}] 


Out  [28]  = 
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Implicit  Surface 

In[29]  :=  ContourPlot3D[xA2 + yA2  +  zA2  ==  1 ,  - 1 » 1 } ,  {y,  - 1 , 1 } ,  {z,  - 1 , 1 }] 


Out  [29]  = 


Inequalities 

In[30]  :=  RegionPlot3D[xA2+jA2+zA2  <  1&&x+j  +  z>  0, 

{*,— 1,1}, 

ViewPoint—  >{— 2, — 10, 2},  PlotPoints—  >  100] 


Out  [30]  = 


Chapter  15 

Trigonometric  Functions 


Statement  of  the  Problem 


Mathematica  can  calculate  Cos  and  Sin  for  many  arguments  equal  to  n  times  ratio¬ 
nal  numbers.  For  example, 

In[l]  :=  Table[Cos[Pi/4  {n}  1, 12}] 

Out[l]  = 


(  1,0*  *  ,  *  (1  +  V5V  Z^Cos 

~n~ 

.Cos 

~7T 

,Cos 

'71' 

\  2  4  V  J  ■  2  ’ 

Vl\ 

7 

7 

19\ 

A 


l+  8 


,Cos 


TC 

IT 


1  +  V3 


’  2V2 

But  it  does  not  apply  the  half-angle  formulas  in  all  possible  cases.  We’ll  write 
our  own  cos  function  which  does  this;  then 

In[2]  :=  sin[x_]  :=  cos[x  —  Pi/2] 


Simple  Cases 

These  cases  should  be  considered  separately  because  Mathematica  does  not  treat 
them  as  rational  numbers  times  n. 

In[3]  :=  cos[0]  =  1;  cos[Pi]  =  —  1; 

In[4]  :=  cos[h_ Integer*  Pi]  :=  (— 1  )An 


General  Case 

In[5]  :=  cos[r_ Rational  *  Pi]  :=  Which [r  <  O.cos[— r*  Pi], 

r  >  2.  cos  [Fractional  Part  [r/2]  *2*Pi],r  >  l,cos[(2  — r)  *K], 
r  >  1/2,  — cos[(l  —  r)  *Pi], 
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15  Trigonometric  Functions 


EvenQ[Denominator[r]] ,  Simplify  [Sqrt[(  1  +  cos[2  *  r  *  Pi] )/2]] , 
True,Cos[r*Pi]] 

For  example, 

In[6]  :=  {cos[Pi/32],cos[— 65  *Pi/32],cos[3*  Pi/32],  cos[33*  Pi/32]} 


1 

2 


2  T~  V2 


> 


In[7]  :=  {cos[Pi/48],cos[5*Pi/48],cos[7*Pi/48]} 


V 


In[8]  :=  {  cos  [Pi  /  40] ,  cos  [3  *  Pi/  40] } 


Check 

In[9]  :=  check [J_, n_]  :=  Module[{e  =  0,.v, ex}, 

Do[x  =  i/d  *  Pi;  ex  =  Abs[iV[cos[x]  —  Cos[jc]]];  If[ex  >  eye  —  ex], 
{i,—  </*#i,</*n}]; 

e] 

In[10]  :=  (check[128,5],check[192,5],check[320,5]} 

Out [10]  =  1 2.2204460492503 1 3  x  10^16, 6. 106226635438361  x  10'16, 

1.861358289723114  x  10~15j 


Chapter  16 

Quantum  Oscillator 


Catching  a  lion ,  the  Schrodinger’s  method:  At  any  moment, 
there  is  a  nonzero  probability  that  a  lion  is  inside  the  cage.  Sit 
and  wait. 


16.1  Lowering  and  Raising  Operators 

The  Hamiltonian  of  the  harmonic  oscillator  is  [18] 

-  p  m  cox 

h  ==+—^. 

2m  2 

There  is  a  dimensionful  constant  h  in  quantum  mechanics;  therefore,  two  quanti¬ 
ties  m  and  CD  define  a  scale  of  length  yjhj ( moo ),  momentum  sjhmco ,  energy  h go, 
and  any  other  quantity  of  any  dimensionality.  They  have  the  meaning  of  the  charac¬ 
teristic  amplitude,  momentum,  and  energy  of  zero  oscillations.  We  shall  put  h=  1, 
m  =  1 ,  and  (0=1,  thus  choosing  these  characteristic  scales  as  units  for  measurement 
of  corresponding  quantities.  Then 


Let’s  introduce  the  operator 


and  its  Hermitian  conjugate 


The  commutation  relation  [p,x 


A  •  A 

x  —  ip 

~7T 


— i  implies  for  them 


<2,  a 


+ 


A.  Grozin,  Introduction  to  Mathematica®  for  Physicists ,  Graduate  Texts  in  Physics,  127 

DOI  10.1007/978-3-319-00894-3—16,  ©  Springer  International  Publishing  Switzerland  2014 


128 


16  Quantum  Oscillator 


The  Hamiltonian  is  expressed  via  these  operators  as 


H  =  eft  a  H —  , 


1 


from  where  we  obtain  [H,d\ =  — a ,  =  cr  .  Therefore,  if  |i j/>  is  an  eigen¬ 

state  of  ft  with  the  energy  E :  ft  \y/>  =  E  |i//>,  then  a\\p>  and  |i//>  are  also 

/V 

eigenstates  of  H  with  the  energies  E  —  1  and  E  +  1 : 

Ha  |  V/r>  =  —  d)  |i//>  =  (E  —  \)a  |i/a>  ,  |i/a>  =  (£"  +  1  )a+  |i/a> 

/V 

(if  only  these  states  don’t  vanish).  Hence  the  eigenvalues  of  H  form  an  arithmetic 
progression  with  step  equal  to  1 .  It  is  bounded  from  below  because  H  is  a  positive 
definite  operator.  Therefore,  there  exists  a  state  |0>  with  the  lowest  energy  that 
cannot  be  lowered  any  more: 

0>  =  0. 


a 


Its  energy  is  equal  to  \ : 


H  0>  =  (  a+a+  ^  j  |0>  =  ^  |0> 


(this  is  the  zero  oscillations  energy).  Acting  on  |0>  by  the  raising  operator  n 
times,  we  obtain  a  state  | n  >  with  the  energy 

1 

Et  7  —  n  +  —  . 


Hence,  ft  \n>  =  ( eft  a  +  |/i>  =  (n  +  |«>  or 


/v-l—  /V 

a  a 


n>  =  n  n>  , 


i.e.,  acts  as  an  operator  of  the  level  number. 

We  have  a  \n>  =  cn  \n  —  1  >;  it  is  possible  to  make  cn  real  and  positive  by  tuning 
the  phases  of  the  states  | n>.  These  coefficients  can  be  found  from  the  normaliza¬ 
tion  condition:  \cn\2  =  <n\dJra\n>  =  n.  The  action  of  the  operator  aft  follows  from 
Hermitian  conjugation: 


a 


n> 


n—  1>,  eft  n>  =  y/n+l  n+  1> 


From  this  we  again  have  eft  a  \n>  =  n  \n> 
In  the  coordinate  representation 


x  =  x,  p  =  —  i—  . 

dr 

Let’s  implement  the  operators  a  and  eft  in  Mathematica. 

Infll  :=a[f  J  :=  Together[(x *  / + D\f\x] ) /Sqrt[2]l 
In[2]  :=  ac[/_]  :=Together[(x*/-D[/»x])/Sqrt[2]] 


16.3  Excited  States 


129 


16.2  Ground  State 


This  is  the  state  which  cannot  be  lowered  by  a. 

In [3]  :=  Eq  =  a  [y/b[x]]  ==  0 

outp]  =  ^oM  +  l/»M 


==  0 


In[4]  :=  s  =  DSolve  [Eq,  ty/b  [x]  ,x] 

Out [4]  =  1 1 1//0 [x]  — s-  e~^~C[l] 

In[5]  :=  y/0  = 

Out[5]  =e“^C[l] 

In[6]  :=  Clear[Eq] 

The  normalization  integral. 

In[7]  :=  NI  =  Integrate  [\I/qa27  {a\  —Infinity, Infinity}] 

Out  [7]  =  y/nC[  l]2 

In[8]  :=  5  =  Solve[NI  ==  1,C[1]] 


Out [8]  =  C[l]  -s-  - 


1 


n 


1/4 


c[i] 


l 


n 


1/4 


In[9]  :=  yr0  =  Vo/^[[2]\ 

_x 2 

°ut[9]  = 

In[10]  :=  Clear  [NI,  5] 


16.3  Excited  States 


0]  = 

n_]  :=  y/[/i]  =  ac[yr[n  —  1]]/Sqrt[n] 
The  wave  functions  of  a  few  first  states. 

In[13]  :=  Table[yr[n],{n,0, 10}] 


In[ll]  :=yr 
In[12]  :=  y/ 


x2 


Out[13] 


e  '2  \/2e  xz  x  e  ’2  (—  1+2a2)  e  2  x  (— 3  +  2a2) 


n 


1/4 


n 


1/4 


V3n1/4 


e“T  (3  —  12x2  +  4x4)  e“TX(l5-20x2  +  4x4) 

2v/6tt1/4  ’  2VT57T1/4 

(-15  +  90x2  -  60x4  +  8x6)  e~TX  (- 105  +  210x2  -  84x4  +  8x6) 
12V57T1/4  ’  6\/70  n1/4 

e“T  (105  -  840x2  +  840x4  -  224x6  +  16x8) 

24v/70tt1/4 
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e-Tx  (945  -  2520x2  +  1512x4  -  288x6  +  16x8) 

72v/35?r1/4 

e-#  (-945  +  9450x2 -  12600x4  +  5040x6 - 720x8  +  32x10) 

720y/7?r1/4 

And  here  the  level  number  can  be  set  by  the  mouse. 

In[14]  :=  Manipulate [i//[h].  {mO.  10, 1, Appearance—  >”LabeledT}] 


Out  [14] 


n  _ I  1 _ 

u 

e  x  (-3+2x2) 

V37T1/4 

The  wave  functions  of  a  few  first  states. 

In[15]  :=  Plot  [E  valuate  [Table  [y/[n],  {/i.  0,3}]],  {a\  —5,5}] 


And  this  is  a  live  plot:  the  level  number  can  be  set  by  the  mouse. 

In[16]  :=  Manipulate  [Plot  [  y/ [n],  {a\  — 5,5},PlotRange  {—0.8, 0.8}], 

{n}  0, 10, 1,  Appearance—  >”LabelecT}] 


16.4  Some  Properties 


131 


Out  [16] 


16.4  Some  Properties 


Orthogonality  and  normalization. 

In[17]  :=  Distribute [i//] 

Out[17]  =  y/ 

In[18]  :=  Paral lei ize [Table [Table [Integrate[ !//[«]  *  y/[m],  {.v,— Infinity. Infinity}], 
{n,0, 10}],  {m,0, 10}]] 

Out  [18]  =  {{1,0, 0,0, 0,0, 0,0, 0,0,0}, {0,1, 0,0, 0,0, 0,0, 0,0,0}, 

{0,0, 1,0, 0,0, 0,0, 0,0,0},  {0,0, 0,1, 0,0, 0,0, 0,0,0}, 

{0, 0, 0,0,1, 0, 0, 0, 0, 0, 0} ,  {0, 0, 0, 0,0,1, 0, 0, 0, 0, 0} , 

{0,0, 0,0, 0,0, 1,0, 0,0,0},  {0,0, 0,0, 0,0, 0,1, 0,0,0}, 

{0, 0, 0, 0, 0, 0, 0,0,1, 0, 0} ,  {0, 0, 0, 0, 0, 0, 0, 0, 0, 1 , 0} , 

{0,0, 0,0, 0,0, 0,0, 0,0,1}} 

Wave  functions  in  the  momentum  representation  (Fourier  transforms)  are  the  same 

as  in  the  coordinate  one,  up  to  phase  factors. 

In[19]  :=  Paralleiize[Table 

Cance  1  [Integrate [\f/[n]  *  Exp[— I  *  p  *  .v] ,  {.v,  — Infinity,  Infinity}]  / 

Sqrt[2  *  Pi ]/(#»]/•*  ->•  p)], 

{n,  0,10}]] 

Out[19]  =  {1,  — i,  —  l,i,  1,  — i,  —  l,i,  1,  — i,  —  1} 

The  probability  density. 

In[20]  :=Manipulate[Plot[y^[n]A2,{x,—  6,6},PlotRange— >  {0,0.6}], 

{{n,  10},  0, 10, 1,  Appearance— >”Labeled”}] 
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Out  [20]  = 


0 


Why  is  it  larger  near  the  boundaries? 


Chapter  17 

Spherical  Harmonics 


17.1  Angular  Momentum  in  Quantum  Mechanics 


yv  yV 

The  angular  momentum  operator  J  is  defined  [18]  in  such  a  way  that  U  = 
exp  (— i/  •  <5<p)  is  the  operator  of  an  infinitesimal  rotation  with  the  angle  S(p:  if  |  y/> 

yv  . 

is  a  state,  then  U  \  \ j/>  is  the  same  state  rotated  by  8(p.  Therefore,  the  average  value 

.  /v  yv  .  . 

V  of  a  vector  operator  V  over  U  \  i//>  is  related  to  its  average  value  V  over  |  \j/>  by 
the  formula  V'  =  V  +  8(p  x  V  and  hence  U+VU  =  V  +  i  J  S(p,V  =  V  +  S(p  x  V. 

Therefore,  for  any  vector  operator  V  the  commutation  relation  \Vi,Jj \  =  i ZijkYk 

_  yv 

holds.  The  average  value  of  a  scalar  operator  S  does  not  change  at  rotations;  hence 

yv  yv  -i  yv 

S,Ji  =  0.  In  particular,  the  angular  momentum  /  is  a  vector  operator,  and  its  square 


yv  yv-v  yv\  yv\ 

J  =  +  Jy  +  is  a  scalar  one: 


■  yv  yv  -j  #  yv 


/v2  /v 

Therefore,  a  system  of  common  eigenstates  of  J  and  Jz  exists.  Let’s  introduce 

yv  yv  yv  yv  i  yv  r  a  yv  — i  yv 

the  operators  =  Jx  ±i/y,  /J  =  /T;  we  have  [JZ,J±\  =  ±/±.  This  means  that 
if  |i //>  is  an  eigenstate  of  Jz  ( Jz  |i//>  =  m|i/r>),  then  |i j/>  are  also  eigenstates 
of  |i/a>  =  (ra±  l)/±  |i/a>  (if  they  don’t  vanish).  Therefore,  eigenvalues  m 

yv  yv 

of  Jz  form  a  progression  with  unit  step,  and  the  ladder  operators  J±  increase  and 
decrease  m. 

Let’s  consider  states  with  a  given  eigenvalue  of  J  .  For  these  states,  eigenvalues 

yv  yv  2  yv-)  yv-\  yv-\ 

of  Jz  are  bounded  from  above  and  from  below  because  the  operator  J  —JZ=JX  +  Jy 
is  positive  definite.  Let  \m±>  be  the  eigenstates  with  the  maximum  and  the  mini¬ 
mum  eigenvalues  of  Jz  equal  to  m± .  Then  these  eigenvalues  cannot  be  further  in- 

yv  yv 

creased  and  decreased  by  the  operators  J±  correspondingly:  J±  \m±>  =  0.  We  have 

yv  yv  yv  )  ysr)  yv 

J±Jz p  =  J  —  Jz  ^zJz  . 
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/v  /v  -  1-^2  /  v  “1 

Therefore,  JTJ±  \m±>  =  0  =  [/  —  m±  [m±  d=  1)J  m±>,  i.e.,  the  eigenvalue  of  the 

operator  J  for  these  states  (as  well  as  for  all  the  other  states  being  considered) 
is  m+  (ra+  +  1)  =  rri-  (m_  —  1).  Hence  (m+  +  m_)  (m+  —  m_  +  1)  =  0;  taking  into 
account  ^  ra_  we  obtain  m_  =  —  or  ra±  =  =b  j.  The  number  j  must  be  integer 
or  half-integer  because  and  ra_  differ  by  an  integer. 

Finally,  we  have  a  system  of  common  eigenstates  |  j,m>  of  the  operators  J 

/V 

and 

J  \j,m>  =  j(j  +  1)  \  j,m> ,  Jz\j,m>  =m\j,m>  , 

where  j  is  integer  or  half-integer,  and  m  varies  from  —j  to  j  by  1.  The  operators  J± 
increase  and  decrease  m  correspondingly:  J±  \j,m>  =  a±(j,m)  \j,m±  1>.  Tuning 
the  phases  of  | j,m>  we  can  make  a±(j,m)  real  and  positive.  They  can  be  found 
from  the  normalization:  \a±(j,m)\ 2  =  <j,m\fTf±\j,m>  =  j(j  +  1)  —  m(m  =b  1). 
Finally  we  arrive  at 


■4  \i,m>  =  y/j(j+  1) -m{m±  1)| j,m±  1>  =  1/(7 ±m+  l)(j=fm)\j,m±  1>. 


/V 

The  orbital  angular  momentum  of  a  particle  l  =  r  x  p  (where  p  =  —  iV  in  the 
coordinate  representation)  is  an  example  of  angular  momentum.  In  spherical  coor¬ 
dinates 


4=e±i''(±^+ico,<,4' 


_  A 

The  eigenfunctions  of  lz  are  elm(jp ;  they  must  not  change  at  (p  (p  -j-  2n\  hence 

m  must  be  integer.  The  common  eigenfunctions  of  l  and  lz  are  called  spherical 
harmonics: 


^  k/m  (  ^  5  ^  +  1)  f/777  (  0 ,  (p)  ,  IzXlm  (  ^  5  ty)  —  wYlm  (^5^)5 


where  /  is  integer,  and  m  varies  from  —  /  to  /  by  1;  F/m(0,  <p)  =  Pim(6)elm(p .  They  are 
orthonormalized : 


(0,  ^p)T/m(0,  ^p)d.f2  • 


Here  are  the  operators  /±  in  Mathematical 

In[l]  :=  lp[/_]  :=  Together  [Exp  [/  *  <p]  *  (D[/,  6]  +/*  Cot[0]  *£>[/,  q> )] 

In[2]  :=  lm[/_]  :=  Together[Exp[— /*  <p]  *  (— D 0]  +/* Cot[0  *D  <p])] 


17.2  yz/(0,<p) 


The  angular  momentum  projection  of  this  state  cannot  be  raised  by 
In[3]  :=  Eq  =  lp[Exp[7  *  /  *  q>]  *  P[0]]  ==  0 

Out[3]  =  — ei<p+i,<p  (/,  Cot[0]P[0]  -P'[0])  ==  0 
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In[4]  :=s  =  DSolve[Eq,P[0],  6] 

Out [4]  =  ||p[0]  ^•C[l]Sin[e]/U 

In[5]  :=P  =  P[0]/.j[[1]] 

Out  [5]  =  C[l]Sin[0]/ 


The  normalization  integral. 

In[6]  :=  NI  =  2  *  Pi  *  Integrate[PA2  *  Sin[0],{ 0,0, Pi},  Assumptions—  >{/  >  0}]/. 
Gamma[— /]— >  —  Pi/  (Sin[Pi  *  /]  *  Gamma[/  + 1]) 

_  r,n  27T3/2C[ll2Gamma[H-  /] 

0,“|61  =  Gamma[l  +  /] 

In[7]  :=  5  =  Solve[NI  ==  1,C[1]] 


Out[7] 


C[l] 


J  Gamma  [|  +  /] 
V^tt3/4  y/Gamma[l  +  T] 


1 


C[l] 


y  Gamma  [|  +  /] 


a/2  7T3/4  y/Gamma[l  +/] 

In[8]  :=  P  =  P/.s[[ 2]] 

\! Gamma  \  l  +  /]Sin[0l/ 

Out[8]  =  V  , 

\Z2tc3/4  y/Gamma[l  +  /] 

The  phase  can  be  chosen  arbitrarily.  According  to  Landau-Lifshitz  [18]: 

In[9]  :=  Y[l _,/_]  =  (-Z)Af  *P*Exp[Z*f *  <p] 

( — i)zel/<iC> \f Gamma  \l  +  /lSin[0]/ 

Out  [9]  = - ,  - 

y/l. 7T3/4  y/Gamma[l  +  /] 

In[10]  :=  Clear[Eq,s,P] 


17.3  Yi„(0,<p) 


These  states  can  be  obtained  from  Yu(0,  (p)  by  the  lowering  operator 

In[ll]  :=S  =  Cos[x_]A#t_— >(1  —  Sin[x]A2)AQuotient[n,2]  *Cos[x]AMod[n,2]; 
In[12]  :=  Y[l  /n_]/;m  <  /  :=  = 

Factor  [Expand[lm[T  [/,  m  +  1]]/Sqrt[(/  —  m)*(/  +  m+l)]/.5]] 

In[13]  :=  Table[Table[y [l,m], {m, l, -l, - 1 }] ,  {/, 0,4}] 


Out[13] 


1 


-i\  —  Cos[0],  -ie 


li  ^~i(P 


n 


15 

2n 


Cos[0]Sin[0] 


1 

2 


-e“1(p 


15 

2k 


Cos[0]Sin[0] 
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— ie3i<p-  /— _lif>2i<P  /105^— r^io--r«i2 


8 


35  r  n,  1 
— Sin  0  3,--ie‘ 
ft  4 


2k 


Cos[0]Sin[0]  , 


-  ^iei,p  \/— Sin[e]  (-4  +  5Sin[6>]2) ,  -J  3cos[6>]  (-2  +  5Sin[6>]2) , 
8  V _ ft  4  V  ft  _ _ 

lip-i<P,/31sin[e]  (-4  +  5Sin[e}2)  ,-lie~2iV 


8 


ft 


2ft 


■Cos[0]Sin[0]  , 


35 


^_je-3i 9  .  /  c;^f/al3 


8 


ft 


Sin[0] 


16 


,4i<p 


gsin[0]4,-^e3i^|cos[0]Sin[0]3, 


le2i<P 

8 


^Sin[0]2(-6  +  7Sin[0]2), 


3  :m  [5  r  ,  r  w  r  l7x  3  (8  —  4OSin[0]2  +  35Sin[0]4) 

8e  ^V  ~Cos[0]Sin[0]  (— 4  +  7Sin[0]2) ,  ^ ^ 


-e~i<p\  — Cos[0]Sin[0]  (— 4  +  7Sin[0]2) , 
8  V  7T 


8 

_  -e~2i<P 
8 


yjsin[0]2(-6  +  7Sin[0]2)^e-3i<P 


35 


7T 


Cos[0]Sin[0]3, 


3  -4i(pJ35sin^ 


16  V  2tt 

In[14]  :=  Manipulate[Manipulate[K [/,  /??] , 

{m,  Appearance—  >”Labeled”}] ,  {/,  0,4,1,  Appearance— >”Labeled”}] 


/ 


-Q- 


Out[14]  = 


m 


-o- 


"2e"VlCos[e]Sin[e] 


Orthogonality  of  Yiimi  and  Yi2m2  with  m\  ^  m2  is  evident;  let’s  check  all  the  rest. 


17.3  Ylm(6,(p) 
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In[15]  :=  Table[Table[Table[ 

Integrate[y[ll,m]  *  Conjugate^ [12, m]]  *  Sin[0],  {<p,0,2  *  Pi},  {0,0, Pi}], 
{m,  12,  -12,-1}],  {12,0,11}],  {11,0,4}] 

Out[15]  =  {{{l}},{{0},{l,l,l}},{{0},  {0,0,0},  {1,1, 1,1,1}}, 

{{0}, {0,0,0}, {0,0, 0,0,0}, {1,1, 1,1, 1,1,1}}, 

{{0},  {0,0,0},  {0,0, 0,0,0}, {0,0, 0,0, 0,0,0},  {1,1, 1,1, 1,1, 1,1,1}}} 


Chapter  18 

Adding  Angular  Momenta  in  Quantum 
Mechanics 


A  /V 

Let  J i  and  J  2  be  two  angular  momentum  operators  commuting  with  each  other. 

*2  ^  ^2 

Then  the  basis  y’i, m\\ 72, m2 >  of  common  eigenstates  of  the  operators  Jx,  J\z ,  J2 , 

A  AAA 

J2Z  exists.  On  the  other  hand,  the  total  angular  momentum  /  =  J\  +J2  is  also  an 
angular  momentum  operator.  Therefore,  linear  combinations  \j,m>  of  the  states 
|  ji  ,m\ ;  72 ,  m2 >  at  given  j\ ,  72  can  be  constructed  in  such  a  way  that  they  are  eigen- 

/v  2  /V 

states  of  J  and  Jz.  This  problem  [18]  is  called  addition  of  the  angular  momenta  j\ 

and  h- 

We  always  have  m  =  m\  + 1112  because  Jz  =  J\z  +  .hr  -  The  following  figure  illus¬ 
trates  addition  of  j\  and  p_  (it  assumes  j\  ^  j'2). 

In[l]  :=  Fig|jl _,j2_]  :=If[jl  <  j2,Fig|j2, jl]. 

With  [{rf  =  0.75  *j2,d2  =  0.1  *j2,d3  =  0.15  *j2,  r  =  0.05  *j2}, 
Graphics[Join[{Line[{{j2,j  1  +  j2},  {j2,j2  -  jl},  {-j2,  -jl  -j2}» 

{ — j2,jl  —  j2},{j2,jl  +j2}}], 

Line[{{0,  -jl  -  j2 -d}t  {0J1  +j2 +d}}], 

Line[{{— j2  — d,0},{j2+d,0}}], 

Line[{{— d2,jl  +j2},{d2,jl  +j2}}], 

Text[/i  +j2,{-d3,jl  +j2}»{!»0}]» 

Line[{{— d2,— jl  -j2},{d2,-jl  -j2}}], 

Text  [-(j,  +j2),{d3,-jl  -  j2},  {-1,0}] , 

Line[{{— d2Jl  -j2},{d2,jl -j2»]. 

Text  Ur -72,{d3,jl-j2>,  {-1,1}], 

Line[{{— d2J2— jl},{d2J2— jl»], 

Text  [—  (ji  —  72) ,  {— d3,j2  — jl},{l, — 1} 

Text  [-72,  (~j2  -  d2,  -d2},  {1,1}],  Text 

Text  [m ,  {— d2,jl  +  j2 +d},{  1,0}],  Text  [m2,  {j2 + d ,  -d2},  {0, 1}]}, 
Jom[Table[{Disk[{m2,m},  r]},{m,  jl  —  j2+ 1  ,j  1  +j2},{m2,m— jl,j2}]], 
Join[Table[Disk[{m2,m},r],{m,-jl  —  j2,j2— jl  -  I},{m2,-j2,m+jl}]] 
Join[Table[Disk[{m2, m},r],  (m,j2  -  jl,jl  -  j2},  {m2,  — j2,  j2}]]]]]] 


72,{j2+d2,— d2},{— 1,1}] 
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In[2]  :=  Show  [Fig  [4, 2]] 


In[3]  :=  Clear[Fig] 

There  is  one  state  with  m  =  j\  +  72,  two  states  with  m  =  71  +72  —  1,  etc.  Such  an 
increase  of  the  number  of  states  occurs  up  to  m  =  j\  —  72 ;  further  on  it  is  constant 
up  to  m  =  —  (71  —  72)  and  then  decreases  to  one  at  m  =  —  (71  +  72).  Therefore,  the 
maximum  angular  momentum  resulting  from  adding  j\  and  72  is  7  =  71  +  72.  One 
state  in  the  two-dimensional  space  of  states  with  m  =  j\  +  72  —  1  refers  to  the  same 
angular  momentum,  and  the  other  one  is  the  state  with  the  maximum  projection  for 
the  angular  momentum  7  =  71+72-1.  Continuing  such  reasoning,  we  see  that  all 
angular  momenta  up  to  j\  —  72  appear.  In  general,  adding  angular  momenta  j\  and 
72  results  in  the  angular  momenta  7  from  \j\  —  72 1  to  71  +  72  in  steps  of  1. 
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This  description  naturally  leads  to  the  algorithm  implemented  below.  We  start 
from  the  only  state  with  m  =  j\  +  72,  namely  the  state  |/i  ,/i ;  72,72>-  It  has  7  = 
ji  +  72,  he.,  it  is  l/i  +  72,71  +  72 >.  Repeatedly  acting  by  the  ladder  operator  /_  = 

/V  /v 

/i_  4-/2-  (and  dividing  by  the  appropriate  normalization  factor)  we  construct  all 
the  states  with  the  total  angular  momentum  7  =  j\  +  72:  I71  +  72,71  +  72  —  1>, . . .  , 
7i  +72,~  (71  +72)  >.  Then  we  turn  to  the  projection  m  =  j\  +  72  —  1  and  choose 
the  state  orthogonal  to  the  already  constructed  one  \j\  +  72,71  +72  —  1>.  It  has 
7  =  71  +  72  —  1,  i.e.,  it  is  \j\  +  72  —  1,71  +  72  —  1>.  Using  the  ladder  operator  we 
construct  all  the  states  with  7  =  71  +  72  —  1 . 

Then  we  proceed  in  a  similar  way.  At  the  beginning  of  each  step,  when  consider¬ 
ing  a  new  value  of  the  projection  m,  we  need  to  construct  the  state  orthogonal  to  all 
the  states  with  the  same  m  already  constructed.  This  is  achieved  as  follows:  we  start 
from  an  arbitrary  state,  say,  1 7 1,71;  72,^  —  71  >,  subtract  its  components  along  the 
already  constructed  states,  and  finally  normalize  the  result.  Then  we  construct  all 
the  states  with  the  same  total  angular  momentum  from  this  state  repeatedly  acting 
by  /_. 

The  function  AddJ  constructs  the  states  \j,m>  (denoted  Ket [j,m])  as  linear  com¬ 
binations  of  the  states  |7i,mi;72,m2>  (denoted  ket  [ml,  m2]).  It  uses  two  local  func- 

/V  _  _ 

tions:  Jm  is  the  lowering  operator/-  and  ScaP  is  the  scalar  product.  The  procedure 
returns  its  local  Ket,  so  that  later  the  user  will  be  able  to  inquire  about  Ket[/,m]  for 
specific  values  of  7,  m;  in  addition  to  this,  the  procedure  prints  all  its  results. 

In[4]  :=  AddJ  =  Function[{jl,j2},If[j2  >  jl,AddJ[j2,jl]» 

Module  [{Ket, 

Jm  =  Function  [{A}, 

Expand^  / .  ket[m  1  _,m2_]— > 

Sqrt[(jl  —  ml  + 1)  *  (jl  +  ml)]  *ket[ml  —  l,m2]+ 

Sqrt[(j2  —  m2+ 1)  *  (j2+m2)]  *  ket  [ml,  m2  —  1]]], 

ScaP  =  Function[{kl,k2}, 

Expand[kl  *k2]/. 

{ket  [ml  m2  _]  A2— >  1 ,  ket  [ml  m2  _]  *  ket[Ml  M2  _] — >0}] }, 
Do[Ket[;,;]  =ket[;-j2,j2]; 

Do[Ket[j,  j]  -  =  Expand[ScaP[Ket[j,  j] ,  Ket[J,  j]]  *  Ket[J,  j]], 

{Zjl+j2»j  +  l»— 1}]; 

Prmt[”Ket[”,  j,  ”  j,  ”]  =  ”, 

Ket  [j,  j]  =  Expand[Ket[j,  y]/Sqrt[ScaP[Ket[y,  j] ,  Ket  [7,  j]]]]]; 
Do[Print[”Ket[”,  7,  =  ”, 

Ket[/,m]  =Expand[Jm[Ket[7,m+  1]]/Sqrt[(y  -  m)  *  (7 + m  + 1 )]]] , 
{m, 7-I, -7,-1}], 

{j>jl+j2Jl  — j2, — l}]; 

Ket]]]; 

In[5]  :=  AddJ[l  /2, 1  /2] 

1  1 


Ket[l,  1]  =  ket 


Ket[l,0]  = 


ket 


2’  2 


1 

2’  2 J 


V2 


+ 


ket  [2,-2 

V2 
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Ket[l,  —  1]  =  ket 


Ket[0,0] 


1 

~  2’ 
ket  [-Id. 


1 

2 


ket  [1,-1 


A 

Out[5]  =  Ket$668 

In[6]  :=  AddJ[l,l/2] 

3  3 

2’  2 


A 


Ket 


=  ket 


1 

lj  2 


Ket 


Ket 


Ket 


Ket 


Ket 


=  '  3kel 


ket  [- 


o,- 

2 

U 


+ 


\/3 

=  ket 

ket  [0. 
A 

=  W^ket 


+ 


A 


3  1 
2’  2 

3  1 

2,_ 2 
3  3 

2,_ 2 

1  1 

2’  2 

1  1 

2,_ 2 
Out  [6]  =  Ket$669 

In[7]:=AddJ[l,l] 

Ket[2,2]  =  ket  [1,1] 

Ke,[2,l]  =  '^M  +  tel[1'01 


ket  [  1 ,  —  j 


A 


5tel 


1 

°’“2 


-  t  /  -ket 


->4 


'•-5 


ket  [0,  —  ^ 


73 


Ket  [2,0] 


\/2 
ket[—  1, 1] 

V6 


+ 


72 

2 


-ket[0,0]  + 


ket  [  1 ,  —  1  ] 

a/6 


ket[— 1,0]  ket  [0 ,  —  1  ] 

"7T“ 


+ 


Ket  [2 ,  t  ]  = 

Ket  [2,  —2]  =  ket[— 1,-1] 
K«[i,l]  =  ke,[°'11  ke,|‘'01 


V2 


Ket[l,0]  = 

Ket[l,  —  1] 

Ket  [0,0]  = 

Out  [7]  =  Ket$670 
In[8]  :=  AddJ[2, 1] 

Ket  [3, 3]  =  ket[2, 1] 


A  A 

ket[— 1,1]  ket  [  1 ,  —  1  ] 

A  A 

ket[— 1,0]  ket[0,  —  1] 


A 


ket[ — 1,1]  ket  [0,0]  ket  [  1 ,  —  1  ] 


A 


+ 


A 


Ket  [3, 2] 
Ket  [3, 1] 


-ket[0,l]  +  2- 


15 


ket[l,0]  + 


ket  [2,  —  1] 

A5 
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Ket[3,0] 

Ket[3,— 

Ket[3,— : 
Ket[3,-: 

Ket[2,2] 
Ket[2, 1] 
Ket[2,0] 
Ket[2,  - : 

Ket[2, 

Ket[l,  1] 

Ket[l,0] 

Ket[l ,  — 
Out  [8]  = 


ket[— 1, 1] 

A 


+  W|ket[0,0]  +  ket[^  1] 


l]  =  ket[-21l]+2 


2]  = 


A5 

ket[— 2,0] 


15 


ket[— 1,0]  +  \  — ket[0,  —  1] 


A 

3]  =  ket[— 2,  —  1] 


+  V  3ket[-1’-1] 


ket[l,  1] 


-  \  Ml, 0] 


ket[0, 1]  ket[l,0]  ket[2,  —  1] 

y/2  A  A 

ket[— 1,1]  ket  [  1 ,  —  1  ] 


A 


A 


i] 


ket[— 2, 1]  ket[— 1,0]  ket[0,  —  1] 


A 


2]  =  A/-ket[-2,0]- 


A  A 

ket[ —  1 ,  —  1] 

7A“ 


ket[0, 1] 

Ao 


10 


ket[l,0]  +  y— ket[2,  —  1] 


10 


ket[— 1, 1] 


-ket[0,0]  + 


1]  =  Y  5 ket[-2, 1]  - 
Ket$67 1 


10 


ket[— 1,0]  + 


— ket[l,  —  1] 
ket  [0 ,  —  1  ] 


Ao 


Chapter  19 

Classical  Nonlinear  Oscillator 


19.1  Statement  of  the  Problem 


Let’s  consider  one-dimensional  motion  of  a  particle  with  mass  m  near  a  minimum 
of  an  arbitrary  smooth  potential  [19] 

kx1 

U(x)  =  —+V(x),  V(x)  =  0(x 3) 

(we  have  chosen  the  origin  of  v  and  the  zero  energy  level  to  be  at  the  minimum). 
If  we  neglect  V  (x),  then  the  equation  of  motion 


m 


dU_ 

dx 


becomes 


and  has  the  solution 


d2x 

dt2 


+  (OqX  =  0 ,  =  —  , 


m 


x(t)  =  a  cos  corf  +  b  sin  coot 


Now  we  consider  the  effect  of 


oo 

V(x)  =  ^  c„x”+2 . 


n=  1 


Choosing  units  of  measurement  in  such  a  way  that  m  =  1  and  k  =  1 ,  we  have  the 
equation  of  motion 


d2x 
dt 2 


+  x  =  R(x) 


dV 

dx 


Its  solution  x(t)  is  a  periodic  function  of  t.  If  we  choose  the  time  origin  at  a 
maximum  of  x(t),  then  x(t)  is  an  even  function,  due  to  reversibility.  In  the  zeroth 
approximation  x{t)  =  a  cos t. 
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In[l]  :—V  —  Series[c[l] */3,{.r,0,3}] 

Out[l]  =  c[l]x3  +  0[x ]4 

In[2]  :=R  =  -D[V,x] 

Out  [2]  =  —  3c[l]v2  +  0[x}3 

In[3l  :=x\t]  =  Series[a*Cos[fl.{a.0. 1}1 

Out[3]=Cos  [t]a  +  0[a\2 

The  equation  of  motion  is  satisfied  at  0(a). 

In[4]  :=D[x[t],{t,2}\+x[t] 

Out  [4]  =  0[a]2 


19.2  The  First  Correction 


Now  we  want  to  take  terms  of  order  a 2  into  account.  The  right-hand  side  is 
In[5]  :=  R1  =R/.x—  >x[t] 

Out[5]  =  —3  (c[l]Cos[f]2)  a2  +  O 


a 

Let’s  expand  it  in  harmonics. 

In[6]  :=  R1  =  Map [TrigReduce,  R 1  ] 

Out[6]  =  —  ^(c[l]  +  c[l]Cos[2t])a2  +  0[a 

That  is,  the  ’’driving  force”  contains  zeroth  and  second  harmonics.  This  means  that 
we  should  add  such  harmonics  to  x(t).  We’ll  not  add  the  solution  of  the  homoge¬ 
neous  equation — the  first  harmonic:  by  definition  of  the  amplitude  a ,  it  is  completely 
given  by  the  leading  term  a  cos  t. 

In[7]  :=x[t]  =  Series[a*Cos[^]+ 

aA  2  *  Sum[fc[2J]  *  Cos  [/*/],  {j,0,2,2}]»  {a, 0,2}] 

Out  [7]  =  Cos  [t }  a  +  (b  [2 , 0]  +  b  [2, 2}  Cos[2f  ] )  a2  +  O  [a] 3 

Now  we  substitute  this  form  of  the  solution  into  the  equation  of  motion. 

In[8]  :=  Eq  =  D[x\t\^{t^2}\  +x[t]  —  (R/.x— >x[t\) 

Out[8]  =  (b[2,0}  +  3c[l}Cos[t]2-3b[2,2}Cos[2t])a2  +  O[a}3 
In[9]  :=  Eq  =  Map[TrigReduee,  Eq] 

Out  [9]  =  3  (2Z?  [2, 0]  +  3c[l]  —  6Z7[2,2]Cos[2t]  +  3c[l]Cos[2t])a2  +  0[a]3 

In[10]  :=  Eq2  =  SeriesCoefficient[Eq,2] 

Out  [10]  =  -{2b[2,0\  +  3c[l]-6b[2,2}Cos[2t}+3c[l}Cos[2t]) 

This  expression  should  vanish.  How  can  we  separate  harmonics?  Let’s  help  Mathe- 
matica  a  little. 

In[ll]  :=  Eq2  =  Eq2/.Cos [j..*t]->zAj 

Out[l  1]  =  1  (2Z>[2,0]  —  6z2b[2,2]  +  3c[l]  +  3z2c[l}) 

The  coefficients  of  z°  and  z2  should  vanish. 

In[12]  :=  Eq20  =  Coefficient[Eq2,z,0] 

Out  [12]  =  -(2fc[2,0]+3c[l]) 


19.3  The  Second  Correction 
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In[13]  :=  Eq22  =  Coefficient  [Eq2,  z,  2] 

Out[13]  =  U-6b[2,2]  +  3c[l]) 

We  can  find  b[ 2, 0]  from  the  first  equation  and  b [2 . 2]  from  the  second  one. 

In[14]  :=£[2,0]  =*[2,0]/.Solve[Eq20==0,fe[2,0]][[l]] 

Out[14]  =  -M 

In[15]  :=  £>[2,2]  =  6[2,2]/.Solve[Eq22  ==  0,ft[2,2]][[l]] 


Out[15] 


c[l] 


Now  we  know  the  solution. 

In[16]  :=x[t]  =x[t] 

Out[16]  =  Cos [t]a+  ^ C ^  ^ 


+  -c[\]Cos[2t] 


a2  -\-0 


a 


Let’s  check  energy  conservation. 

In[17]  :=  Et  =  D[x[tU]A2/2+x[t]A2/2+ (V/.x- 
In[18] :  =  Map [TrigReduce,  Et] 


Out[18]  =  —  +  0[a 

In[19]  :=  Clear[&] 


19.3  The  Second  Correction 


Now  we  want  to  find  two  corrections. 

In [20]  :—n  —  2; 

In[21]  :=  V  =  Series[Sum[c[t]*jrA(/  +  2),{^i,n}],{jr,0,n  +  2}] 

Out[21]  =  c[l]x3  +  c[2]x4  +  0[x]5 
In[22]  :=R  =  -D[V,x\ 

Out  [22]  =  — 3c[l]v2  —  4c  [2]  v3  +  0[x]4 
This  is  x[t]  up  to  a2. 

In[23]  :=x[t]  =  Series[«  *  Cos[/]+ 

aA  2*  Sum[£[2,  j]  *  Cos  [j  *  t ] ,  {j,  0, 2, 2}] » {a,  0,  n}] 

Out  [23]  =  Cos  [t }  a  +  (b  [2 , 0]  +  b  [2, 2}  Cos[2t  ]  )a2  +  O  [af 3 
The  right-hand  side  of  the  equation  of  motion. 

In[24]  :=  R1  =  Map  [TrigReduce,  Expand  All  [/?/.. \—>v[/]]] 

Out  [24]  =  —  ^(c[l]  +  c[l]Cos[2^])a2+ 

(-6*[2,0]c[l]Cos[f]  -  3fe[2,2]c[l]Cos[f]  -  3c[2]Cos[t}~ 

3fc[2,2]c[l]Cos[3f]  -  c[2]Cos[3;])a3+ 

O  [a] 4 

There  are  the  first  and  the  third  harmonics  at  the  order  a 3,  that  is,  there  is  a 
resonant  term  in  the  ’’driving  force”  which  would  lead  to  an  unbounded  growth  of 
the  solution.  This  means  we  have  forgotten  something.  Namely,  we  have  forgotten 
that  the  oscillation  period  depends  on  the  amplitude  (unless  the  potential  is  strictly 
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parabolic).  And  our  solution  should  contain  cos (jcot).  If  we  denote  T  =  cot ,  then  the 
equation  of  motion  is 


d2x 

dr2 


~\~  x  —  R . 


Let’s  suppose  that  the  variable  t  in  the  program  really  means  t  and  denote  co2  =  w. 
It  is  a  series  in  a2  beginning  with  1 . 

In[25]  :=w  =  Series[l  +  Sum[n[i]  *  ahiy  {/,  2, n  + 1 , 2}] ,  {ay 0, n  + 1 }] 

Out  [25]  =  1  +  u[2\a2  +  0[a]4 

Now  we  are  able  to  cancel  the  first  harmonic  in  the  a 3  term  of  the  equation  of  motion. 


And  the  third  one  should  be  added  to  the  general  form  of  the  solution. 

In[26]  :=x[t]  =  Series[a  *  Cos[f]  +aA2*Sum[l>[2,j]  *Cos\j*t]i{ji 0,2,2}]+ 
aA3  * Sum[6[3,  j]  * Cos[j  * t], {j, 3, 3, 2}]» {a» 0» n  + 1 }] 

Out  [26]  =  Cos[t]a+(b[2,0]+b[2,2]Cos[2t])a2  +  b[3,3]Cos[3t]a3  +  O[a 


The  equation  of  motion  is 

In[27]  :=  Eq  =  Map [TrigReduce, 

ExpandAll[w*D[x[^],{^,2}]  +x[t]  —  (R/  .x—>x[t])]] 

Out [27]  =  l(2fe[2,0]  +3c[l]  -  6b[2,2]Cos[2f]  +  3c[l]Cos[2t])a2+ 

(6*[2,0]c[l]Cos[f]  +  3*[2,2]c[l]Cos[f]  +  3c[2]Cos[t]- 

8b[3, 3]Cos[3f]  +  3b[2,2]c[l]Cos[3f]  +  c[2]Cos[3t]  -  Cos[f]n[2])a3+ 

0[a ]4 

We  already  know  how  to  solve  it  at  the  order  a2. 

In [28]  :=  Eq2  =  SeriesCoefficient[Eq,2]/.Cos [/_. *f]=>zAy 

Out[28]  =  1  (2b[2,0]  —  6z2b[2,2]  +  3c[1]  +  3z2c[1]) 

In  [29]  :=  Do  [Print  [6  [2,  y]  =  b[2,  j]/.  Solve[Coefficient[Eq2,  z,  j]  ==0,6[2,/|][[l]]], 
0,0, 2, 2}] 

MU 

2 

Ml 

2 

At  the  order  a 3 : 

In[30]  :=  Eq3  =  SeriesCoefficient[Eq.  3]/.  Cos[/  _ .  *  t]—>z!j 

Out[30]  =  -8z3/?[3,3]  -  ^zc[l}2  +  ^z3c[l}2  +  3zc[2]  -f  z3c[2]  —zu[ 2} 

This  is  the  coefficient  of  the  first  harmonic,  i.e.,  of  zl : 

In[31]  :=  Eq31  =  Coefficient [Eq3,z,  1] 

Out  [31]  =  -Lc[1]2  +  3c[2]-m[2] 

It  can  be  nullified  by  choosing  u  [2] . 

In[32]  :=  m[2]  =  u[2]/.Solve[Eq31  ==  0,i/[2]][[l]] 

Out[32]  =  —  2  (5c[l]2  —  2c [2]) 

And  this  is  the  coefficient  of  the  third  harmonic,  i.e.,  of  z3 : 


19.4  The  nth  Correction 


149 


In[33]  :=  Eq33  =  Coefficient[Eq3,z,3] 

Out[33]  =  — 8fe[3, 3]  +  ® -  +  c[  2] 

It  can  be  nullified  by  choosing  £>[3,3]. 

In[34]  :=  £[3,3]  =  £[3,3]/.Solve[Eq33  ==  0,£[3,3]][[1]] 

Out[34]  =  T(3c[i]2  +  2c[2]) 

Now  we  know  the  oscillation  frequency 
In [35]  :=  w  =  w 


Out[35] 

and  v[t]: 

In[36]  :=x[t]  =x[t] 

Out[36]  =  Cos[/L]a  + 

1 


1  —  -  (5c[i]2  —  2c[2]) a2  +  0[ 


a 


^11  +  ic[l]Cos[2f] 


a2  + 


—  (3c[l]2  +  2c  [2])  Cos[3t]a3  +  (9 


a 


Let’s  check  energy  conservation. 

In[37]  :=  Et  =  Map[TrigReduce, 

ExpandAll[w  *  D  [x[t] ,  t] A2/2 + x[t\ A2/2  +  (V  / .  x—  >x[j] )]] 


Out[37] 


a2  1 


2  16 

In[38]  :=  Clear [/?,  u] 


+  —  (— 37c[l]2  +  18c[2])  a4  +  0[a 


19.4  The  nth  Correction 


Now  we’ll  write  a  program  which  can  find  n  corrections  in  a  to  the  particle  mo¬ 
tion  for  any  n.  Just  a  single  line  should  be  changed  for  the  calculation  with  a  new 
value  of  n. 

In[39]  \—n  —  4; 

The  correction  to  the  potential  and  the  “driving  force.” 

In[40]  :=  V  =  Series[Sum[c[i]  * xA(i  +  2)} {/,  1,  w}],  +  2}] 

Out  [40]  =  c[l\x3  +  c[2]v4  +  c[3]v5  +  c[4]x6  +  6>[v]7 

In[41]  :=R  =  -D[V,x\ 

Out[41]  =  — 3c[l]v2  —  4c[2]v3  —  5c[3]v4  —  6c[4]v5  +  0[x ]6 
The  frequency  squared  is  a  series  in  a2. 

In[42]  :=  w  =  Series[l  +  Suiii[m[i]  *  a\  {/,  2, n  + 1 , 2}] ,  {a, 0, /i  + 1 }] 

Out  [42]  =  1  -j-  u[2\a2  +  w[4]a4  +  0[a 


The  general  form  of  the  solution.  The  order  a1  contains  harmonics  up  to  the  ith  one. 
They  are  all  even  at  even  values  of  i  and  odd  at  odd  values.  The  first  harmonic  never 
appears — by  definition,  it  is  entirely  contained  in  the  leading  term  a  cos  t. 
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In[43]  :=  x[t]  =  Series  [«  *  Cos[/]+ 

Sum[flAj  *  Sum[2>[i,  j]  *  Cos  [j  *  t] ,  {j,  If[EvenQ[i]  ,0,3],  i,  2}] ,  {/,  2,  n  + 1 }] , 
{a,0,n+ 1}] 

Out  [43]  =  Cos  [t  ]  a  +  (b  [2, 0]  +  b  [2 , 2]  Cos[2t  ]  )a2  +  b  [3 , 3]  Cos  [3t  ]  a3  + 
(b[4,0\+b[4,2]Cos[2t]+b[4,4\Cos[4t])a4+ 

(fe[5,3]Cos[3f]  +fo[5,5]Cos[5f])a5  +  0[a]6 


The  equation  of  motion. 


In[44]  :=  Eq  =  Map [TrigReduce, 

ExpandAR[w*D[x[j],{^2}]  +x[t]  —  (R/  .x—>x[t])]] 

Out [44]  =  l(2fe[2,0]  +  3c[l]  -  66[2,2]Cos[2t]  +  3c[l]Cos[2t])a2+ 

(6*[2,0]c[l]Cos[f]  +  3ft[2,2]c[l]Cos[f]  +  3c[2]Cos[t]- 

86 [3, 3]Cos[3f]  +  36[2,2]c[l]Cos[3f]  +  c[2]Cos[3t]  -  Cos[t}u[2])a3 + 

1  (8Z>[4,0]  +246[2,0]2c[l]  +  126[2,2]2c[l]  +  486[2,0]c[2]  +  246[2,2]c[2]  + 

15c[3]  -  24b[4, 2]Cos[2t]  +  48fo[2, 0\b[2, 2]c[l]Cos[2t]  + 
24b[3,3]c[l}Cos[2t]+48b[2,0}c[2\Cos[2t}+4%b[2,2}c[2\Cos[2t}  + 
20c[3]Cos[2t]  -  120fc[4,4]Cos[4r]  +  126[2,2]2c[l]Cos[4t]  + 
24b[3,3]c[l]Cos[4t}+24b[2J2}c[2}Cos[4t}+5c[3}Cos[4t}- 
32fo  [2, 2]  Cos  [2f  ] « [2] )  a4 + 

(3b[2,2}b[3,3}c[l]Cos[t]+6b[4,0}c[l}Cos[t}  +  3b[4,2}c[l}Cos[t}  + 

126[2,0]2c[2]Cos[t]  +  12b[2,0}b[2,2}c[2]Cos[t]  +6b[2,2]2c[2]Cos[t]  + 
3£>[3,3]c[2]Cos[t]  +  156[2,0]c[3]Cosj>]  +  10Z?[2,2]c[3]Cos[f]  + 

y  c[4]Cos[f]  -  8fr[5,3]Cos[3f]  +  6b[2, 0]fc[3, 3]c[l]Cos[3r]  + 

3b[4,2]c[l}Cos[3t}  +  3b[4A}c[l}Cos[3t}  +  l2b[2,0}b[2,2}c[2]Cos[3t}  + 
3b[2,2]2c[2}Cos[3t]  +  66[3,3]c[2]Cos[3t]  +  56[2,0]c[3]Cos[3f]+ 

y&[2,2]c[3]Cos[3f]  +  yc[4]Cos[3f]  -  24&[5,5]Cos[5t]  + 

3b[2, 2]b[3, 3]c[l]Cos[5r]  +  3b[4, 4]c[l]Cos[5f]  +  3b[2, 2]2c[2]Cos[5f]  + 

3£>[3,3]c[2]Cos[5t]  +  ^[2,2]c[3]Cos[5t]  +  ^c[4]Cos[5t]- 

2  8 

9b [3 , 3] Cos[3f] u [2]  -  Cos[t] u [4]  )  a5  + 


O 


a 


l6 


All  terms  of  the  orders  a1  for  i  from  2  to  n  +  1  must  vanish.  If  i  is  odd,  the  first  har¬ 


monic  is  present;  a  correction  to  the  frequency  squared  is  found  from  the  condition 
that  this  harmonic  vanishes.  All  other  harmonics  give  us  coefficients  in  x(t). 

In[45]  :=  Do[Eqi  =  SeriesCoefficient[Eq,i]/.Cos[j_. *t]— >zAjl 
If[OddQ  [/], 

u[i—  1]  =  u[i  —  l]/.Solve[Coefficient[EqLz.  1]  ==  0  }u[i—  1]][[1]]]; 
Do[fe[i,j]  =  &[£,  j]  / .  Solve[Coefficient[Eqi,  z,  j]  ==  0,6[i,/]][[l]], 

{j,  If  [EvenQ[i] ,  0, 3] ,  /,  2}] , 

{i,2,n+ 1}] 

Now  we  know  the  frequency  squared. 
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In [46]  :=w  =  w 

Out[46]  =  1  —  ^  (5c[l]2  —  2c [2])  a2— 


—  (335c[l]4  -  572c[1]2c[2]  -  4c[2]2  +  280c[l]c[3]  -  40c[4]) a4  +  0[a}6 
and  x(t) 

In[47]  :=x[t]  =x[t] 

Out [47]  =Cos [t]a+  ( —  -f — c[l]Cos[2f]  J  a2+  (3c[l]2  +  2c [2])  Cos[3t]a3+ 


16 

^  (I9c[l]3  —  20c[l]c[2]  +  5c[3])  + 

2  (l77c[l]3  -  186c[l]c[2]  +40c[3])Cos[2r]  + 
48 

(3c[l]3  +  6c[l]c[2]  +  2c[3] )  Cos[4f]  y  cfi + 


256 

1 


O 


a 


768 

6 


(237c[l]4  —  172c[1]2c[2]  —  28c[2]2  —  12c[l]c[3]  -f  20c[4])Cos[3^]-f- 
(l5c[l]4  +  60c[l]2c[2]  +  12c[2]2  +  44c[1]c[3]  +  12c[4])Cos[5f]  ]  a5  + 


Let’s  check  energy  conservation. 

In[48]  :=  Et  =  Map [TrigReduce, 

ExpandAll[w  *  D  [x[t]  ,  *] A2/2 + x  [t] A2/2  +  (V  / .  x—  >x[t] )]] 


a 2  1 


Out[48]  =  —  +  —  (— 37c[1]2+  18c[2])a4+ 


1 


1536 


O  [a] 


(— 9309c[l]4  +  17796c[1]2c[2]  +  300c[2]2  -  10880c[l]c[3]  + 
1920c[4])a6+ 


It  is  easy  to  write  a  function  with  the  parameter  n  which  can  be  used  as  a  black  box. 
It  should  use  only  local  variables. 

Now  we  save  the  results  for  the  energy  Et  and  the  frequency  squared  w  to  a  file; 
later  we’ll  compare  them  to  the  similar  results  in  quantum  mechanics. 

In[49]  :=  Ec  =  Normal[Et]/.a— >Sqrt[2  *A]; 

Wc  =  Normal[Simplify[Sqrt[w]]]/.a— >Sqrt[2  *  A]; 

Save  [”c  lass.  m’\  {Ec,  Wc}] 


Chapter  20 

Quantum  Nonlinear  Oscillator 


20.1  Perturbation  Theory 

/V 

Suppose  we  know  eigenvalues  and  eigenstates  of  a  Hamiltonian  Hq  and  want  to  find 
them  for  a  Hamiltonian  H  =  Hq  +  V  in  the  form  of  series  in  V  [18].  Let’s  concentrate 
on  a  non-degenerate  eigenstate  of  the  unperturbed  Hamiltonian 

Ho\Vo>  =E0\Yo>- 

After  switching  the  perturbation  on  it  transforms  to  a  similar  eigenstate  of  the  full 
Hamiltonian 

H 1 \]/>  =  E  1 1 i//>  ,  E  =  Eq  +  SE . 

Let’s  normalize  |i //>  in  such  a  way  that  <y/o|y/>  =  1,  then  |i//>  =  |  i//Q>  +  |5y/>, 
<  1//0 1  <5 1//>  =  0.  We  need  to  solve  the  equation 

I  Y>  +  L  |  y/>  =  E  |  i/a>  . 

Let’s  separate  its  components  parallel  and  orthogonal  to  |y/o>.  The  parallel  part  is 
singled  out  by  multiplying  by  <  i//o  | : 

SE  =  <y/ro|V,|yo>. 

✓V  . 

The  orthogonal  part  is  singled  out  by  the  projector  P  =  1  —  |  y/Q > <  V^o  I : 

Ho\S\i/>  +  PV\\i/>  =E\8\\f> , 
or 

/V 

1 5  y/>  =  DV 1 1//> ,  D=  P  -  . 

E  —  Hq 

Solving  this  equation  by  iterations,  we  obtain 

|5i//>  =  DV  | i//q >  +  DVDV  | i//q >  H - , 
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and 


/V  /V  /V 


/V  /V  /V  /V  /V 


SE  =  <y/o|V|y/o>+  <  y/b|VW|y/b>  +  <i/a0|VDVDV|i//o>  + 


Note  that  D  contains  E  =  Eq  +  <5 is  and  should  be  expanded  in  <5 is: 


/V  /V  ,  /v  _  /\  —  /v 

D  =  G—  G8EG  +  G8EG8EG  - 


P 

Eo  -  Ho  ' 


20.2  Nonlinear  Oscillator 


We  are  going  to  apply  the  perturbation  theory  to  the  nonlinear  oscillator 


*  =  X 


ckx 


k+ 2 


k=  1 


The  oscillation  amplitude  is  ~  1  if  /i  ~  1;  therefore,  q  ~  <2^,  where  a  ~  1/L  <C  1, 
L  is  the  characteristic  length  of  the  potential  in  the  oscillator  units.  If  n  ^  1,  the 
amplitude  is  times  larger,  and  the  real  expansion  parameter  is  a^/n. 

■  /V  1 

We  concentrate  on  the  eigenstate  |«>  of  //q  having  the  energy  Eq  =  n+  2-  In 
order  to  calculate  5is  up  to  the  Mth  order  of  the  perturbation  theory,  we  need  to  sum 
all  expressions  of  the  form 


)  n,n+ 7/V-l  (^7V-1  )  7^-1  ,n+ 777—2  ^n4-7A7-2 

^+72  (^2)n+72,n+7i  04J  n+7l,n  ’ 


^  /v 

where  is  V  or  —  oE  and  the  sum  of  the  orders  of  smallness  k\  +1t2  H - b  kjsr  ^ 

M;  the  sum  over  all  nonzero  j\ ,  72, . . .  7’yv-i  is  assumed.  The  following  procedure 
prepares  the  values  V[£,7]  of  (Vk)n+jn  (x[k,j]  means  (xk)n+jn): 

In[l]  :=  Prepare  [m _]  :=  (Af  =  m;  x[l,  1]  =  Sqrt[(n+ 1)/2];  x[l,— 1]  =  Sqrt[n/2]; 
jt[1,0]  =  0; 

Do[x[fc,  j]  =  If[/  <  k - 1,  (x[l ,  1]/.  n  -)■  n + j)  *x[&—  1,  7+ i],o]+ 

If [7  >  l-k,(x[l,-l\/.n^-n+j)*x[k-  1J-  1],0], 

{k,2,m  +  2},{j,-k,k}]; 

Do[V[fe,7]  =  Simplify[c[fc]  *x[k  +  2,j]],{k,  l,m},{j,-k-2,k  +  2,2 }]) 


20.3  Energy  Levels 

The  expressions  we  want  to  generate  and  calculate  can  be  visualized  as  paths  in  the 
following  graph: 


20.3  Energy  Levels 
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In[2]  :=  ParametricPlot[{ {/, 3  —  3  */},  {/,  —3  +  3  */}, 

0/2, 3/2  *  /},  0/2,  -3/2  *  /}},  0, 0, 1 }, 

PlotRange  — >  {{0, 1 },  { — 3,3}},AxesLabel— >  {/,/}, 

Ticks  ->  {{0,{1/2,M/2},{1,M}}, 

{{— 3,-3  *Af},{— 3/2,— 3/2  (3/2, 3/2*  Af},  {3,3  *Af}}}] 


j 
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Here  /  is  the  number  of  orders  of  smallness  we  need  to  distribute.  We  start  at 
the  point  l  =  M,  j  =  0.  At  each  step  we  consider  all  possible  A^.  If  we  choose 
{yk)n+j+i  n+p  we  move  k  steps  to  the  left  and  i  steps  vertically.  If  we  choose  — SE 
we  move  k  steps  to  the  left  horizontally  (this  choice  is  not  allowed  as  the  first  or 
the  last  step).  Whenever  we  hit  the  j  —  0  axis,  we  have  a  complete  expression  for 
a  contribution  to  SE.  The  fastest  movement  along  j  at  varying  /  occurs  when  V\  is 
used,  and  its  velocity  is  3.  Hence,  in  order  to  have  enough  time  to  return  to  j  =  0, 
we  should  not  leave  the  rhombus  in  the  figure. 

Suppose  we  have  already  generated  a  right-hand  part  a  of  the  expression  up  to 

✓V  _ 

some  Gn+j  inclusively,  and  there  remain  /  orders  of  smallness  to  distribute.  The 
procedure  considers  all  possible  (A*)  .+?.  which  can  be  inserted  to  the  left  of 

a.  It  may  be  —  SE^  with  all  possible  values  of  k  (if  we  are  not  at  the  very  first  step 
/  =  M),  the  maximum  k  is  obtained  from  the  rhombus.  Or  it  may  be  (I4 )w+  -+/-  n+j 


with  all  possible  values  of  k  and  i.  I4  =  has  nonzero  matrix  elements  for  i 

from  —  k  —  2  to  k+ 2  in  steps  of  2.  The  limits  of  the  i  loop  follow  from  the  intersection 
of  this  range  with  the  rhombus,  and  the  k  loop  terminates  when  this  intersection 
disappears.  If  we  happen  to  return  to  the  initial  state  (j  +  i  =  0),  this  means  that 
the  generation  of  an  expression  is  complete,  and  it  should  be  added  to  the  element 
of  the  list  d  which  accumulates  contributions  to  SE  (this  contribution  may  contain 
lower-order  SE^  =  de[&]).  In  all  other  cases,  the  procedure  is  called  recursively,  with 
l  replaced  by  l-k,  j  by  j  +  i,  and  a  multiplied  by  (Ak)n+j+.  n+.  and  Gn+j+i- 

In[3]  :=  v[/_,7_,a_]  :=  (If[/  ==M,d  =  Table[0,{M}], 

Do[v[/  -  k,  j, a  * de[^] / j],  {k, 2, l  ~  Abs[j] /3 » 2}]] ; 

Do[If [j  +  i  ==  0,  d[[M — l + k]\ +  =  a  *  (V[k}  i] /.  n  — >  n  +  j) , 
v[l  -kj  +  i,  -a  *  (V[k,  i]/ .n  Y  n  +  j)/(j  +  *)]] , 

{^,Min[Z,  1  -h  (3  *  /  -  Abs[/])/2]}, 

{i}  Max  [-k-2,-3*(l-k)-j\,  Min[^ +2,3  *  (l -k)-j\}  2}] ) 

In[4]  :=Prepare[6];  v[M,0, 1]; 

Now  we  substitute  lower-order  SE  into  expressions  for  higher-order  ones,  to  get 
explicit  formulas. 

In[5]  :=Do[d e[k]  =  Simplify  [J[[/:]]];  Print  [Col  lect[de[Z:] +[  -] ,  Factor]] ,  {/:,  2,  M,  2}] 

I  (-1 1  -  30n  -  30n2)  c[l]2  +  ^  (l  +  2n  +  In1)  c[2] 

-  —  (1  +  In)  (31  +  47«  +  47n2)  c[l]4  +  -(1+  In)  (19  +  25 n  +  25 n2)  c[l]2c[2]- 
32  8 

1(1+2 n)  (21  +  17«+  17n2)c[2]2-  1(1  +2«)  (13  +  14n  +  14«2)  c[l]c[3]  + 

8  8 


1 


128 


—  ( 1  +  2 n)  (3  +  2 n  +  2 c  [4] 

8 

(—39709—  162405n  — 278160n2  — 231510«3—  1 15755n4)  c[l]6+ 
T  (15169  +  59385n  +  98160n2  +  77550n3  +  38775n4)  c[l]4c[2]+ 

-4(111  +  347„  +  472«2  +  250 «3  +  1 25  n4)  c  [2] 3 + 

16 


20.4  Correspondence  Principle 
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—  (-4517-  16815«-26580n2-  19530m3  -  9765m4)  c[l]3c[3]  + 

16 

-L  (-449  -  1400m  -  2030m2  -  1260m3  -  630m4)  c[3]2- 

—  (12  +  35ft  +  46ft2  +  22ft3  +  lift4)  c[2]c[4]  + 

8 

c [l]2  (^(-11827-  43479ft  -  68424ft2  -  49890ft3  -  24945ft4)  c[2]2+ 
5 

16 

c [  1  ]  Q  (474  +  1 625 ft  +  2430ft2  +  1 6 1  Oft3  +  805ft4)  c  [2] c [3]  ■ - 

105 
~16 

—  (3  +  8ft  +  10ft2  +  4ft3  +  2ft4)  c[  6] 


(5  +  16ft  +  22ft2  +  12ft3  +  6ft4)  c[5]^  + 


323  +  1 125ft  +  1 668ft2  +  1086ft3  +  543ft4)  c[ 4]  ) 


20.4  Correspondence  Principle 

At  ft  1  the  expansion  parameter  of  the  perturbation  series  is  a^Jn  where  q  ~  ak. 
Keeping  only  the  highest  powers  of  n  in  each  order,  we  have 

In[6]  :=  Eq  =  Series  [ft + 

Sum[(Expand[(de[2 * (j  —  l)]/.ft  — *  1  /a)*aAj\/.a  -+  0) *ftA/> 

0,2, M/2+1}], 

{ft, 0, M/2+1}] 

Out [6]  =  n  +  (-  ^c[l]2  +  ^p)  «2+ 

2  (— 705c[1]4  +  900c[1]2c[2]  -  68c[2]2  -  280c[l]c[3]  +  40c[4])m3 - 

-2-(23151c[1]6  —  46530c[1]4c[2]  +  19956c[l]2c[2]2  —  600c[2]3+ 

128  v 

15624c[1]3c[3]  -  7728c[l]c[2]c[3]  +  504c[3]2  -  4344c[l]2c[4]+ 
528c[2]c[4]  +  1008c[l]c[5]  -  1 12c[6])m4+ 

0[n] 5 

Bohr’s  correspondence  principle  must  hold.  From  the  quantum  point  of  view,  the 
particle  at  the  ftth  energy  level  can  radiate  a  photon,  jumping  to  the  (ft  —  l)th  one,  or 
more  generally  to  the  (ft  —  k) th  one.  The  frequency  of  this  photon  is  En  —  En_k,  or 

1  j-i 

approximately  ~^k.  From  the  classical  point  of  view,  the  frequencies  of  the  emit¬ 
ted  light  are  equal  to  the  oscillation  frequency  co  and  its  harmonics.  Therefore,  the 
oscillation  frequency  is 
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In[7]  :=Wq  =  D[Eq,/t] 

Out[7]  =  l+2(-^c[l]2  +  M 


n+ 


16 

5 


(— 705c[l]4  +  900c[1]2c[2]  -  68c[2]2  -  280c[l]c[3]  +  40c[4])«: 


—  (23151c[l]6-46530c[l]4c[2]  +  19956c[l]2c[2]2-600c[2]3+ 

15624c[1]3c[3]  —  7728c[l]c[2]c[3]  +504c[3]2  — 4344c[l]2c[4]  + 
528c[2]c[4]  +  1008c[l]c[5]  -  112c[6])«3+ 

0[n]4 

We  want  to  compare  it  with  the  result  of  the  calculation  in  classical  mechanics.  But 
the  quantum  expression  for  co  is  in  terms  of  n  and  the  classical  one  in  terms  of  the 
oscillation  amplitude  a.  We  need  to  re-express  both  of  them  via  the  same  quantity, 
the  energy  E. 

In[8]  :=  ne  =  lnverseSeries[Eq.  e] 

Out[8]  =  e  +  ^  (5c [1] 2  —  2c [2])  c2+ 

^  (23 lc[l]4  -  252c[1]2c[2]  +  28c[2]2  +  56c[l]c[3]  -  8c[4])<?3+ 

24  (7293c[l]6  -  12870c[1]4c[2]  +  5148c[1]2c[2]2  -  264c[2]3+ 

128  v 

3432c[1]3c[3]  -  1584c[l]c[2]c[3]  +  72c[3]2  -  792c[l]2c[4]+ 

144c[2]c[4]  +  144c[l]c[5]  -  16c[6])e4+ 

In [9]  :=  Wqe  =  Simplify [Wq/.n  — >  ne] 


Out  [9]  =  1  + 


15 


c[l]2  +  3c [2]  )  e— 


^  (855c[l]4  -  1020c[1]2c[2]  +  92c[2]2  +  280c[l]c[3]  -  40c[4])e2+ 

1  (— 164805c[1]6  +  31  1670c[1]4c[2]  —  94920c[l]3c[3]  — 

180c[l]2  (715c[2]2  -  134c[4])  +5040c[l](9c[2]c[3]  -c[5])  + 


32 


8  (63 3c [2] 3  -  3 1 5c [3] 2  -  450c  [2]  c [4]  +  70c [6]  ))e3+ 


O 


Now  we  read  the  classical  results  for  the  energy  Ec  and  the  frequency  We  (written 
in  terms  of  A  =  a2  /  2,  where  the  amplitude  a  is  defined  as  the  coefficient  of  the  first 
harmonic  cos  cot). 

In[10]  :=  <<class.m; 

In[ll]  :=Ec  =  Series[Ec,{A,0,3}] 

Out[ll]=A+^c[l]2  +  ffl 

(— 9309c[l]4  +  17796c[1]2c[2]  +  300c[2]2  -  10880c[l]c[3]  +  1920c  [4])  A3+ 


A2+ 


1 


192 

0\A] 


20.5  States 


159 


In[12]  :=  Wc  =  Series[Wc»{A,0,2}] 

Out  [12]  =  1+  ^-yc[l]2  +  3c[2]jA- 


—  (485c[l]4  -  692c[1]2c[2]  +  20c[2]2  +  280c[l]c[3]  -  40c[4])A2+ 
0[A]3 

In[13]  :=  Ae  =  Simplify  [InverseSeries[Ec,  e]\ 

Ou,[13]  =  e+  |'2M!!l_iPy+ 


V 

/  14055c[l]4  4147 


l 

0[e 


64 


16 


2  J 


c[1]2c[2]  + 


623c[2]: 

16 


+ 


170 


3  c[l]c[3]  -  10c[4]  je3+ 


In[14]  :=  Wee  =  Simplify[Wc/.A  Ae] 


Out  [14]  =  1  + 


15 


c[1]2  +  3c[2]  I  e— 


j-  (855c[l]4  -  1020c[l]2c[2]  +  92c[2]2  +  280c[l]c[3]  -  40c [4])  e2+ 

Ole]3 

In[15]  :=  Wqe-Wce 

Out[15]  =  0[e]3 


20.5  States 


The  following  procedure  accumulates  contributions  to  8E  in  elements  of  the  list  d 
and  to  |<5i//>  in  the  list  dp.  Now  we  have  to  consider  the  large  triangle  in  the  figure, 
not  just  the  rhombus. 


l+  =  a*ketbi+  /]; 
/./],{*,  2,/ -1,2}]]; 


In[16]  :=  v2 [l.J^a.]  :=  (dp[[Af  — / 

If[/  <  M,Do[v2[/  —  kj,a* dc[k 
Dollf [j  +  i  ==  Oy  d[[M  —  l  +  k]\ +  =  a  *  (Vfk,  i] /.  n  — >  n  +  j) , 
v2[/ -kj  +  iy  -a  *  (V[ky  i]/.n^n  +  j)/(j  +  /)]] , 

{ ky  l } y  {iy  k  2y k + 2y 2}]) 

In[17]  :=  Prepare[2];  d  =  Table [0, {Af}];  dp  =  Table [0, {Af}]; 

Clear[de];  v2[Af.O. 1]; 

In[18]  :=  Do[de[k]  =  Simplify [*/[[£]]]; 

Print  [Collect  [dp  [  [k]  ] ,  ket[  _] ,  Simplify]] ,  {k,M}] 

V— 2  +  yiaJ  —  1  H- n^Jnc[ l]ket[— 3  +  n\  |  3n3/2c[l]ket[—  1  -\-n 

6V2  2^2 

3(1  +n)3/2c[l]ket[l  +  n\  y/\  -\- n\/ 2 -\- n\]  i +  «c[l]ket[3  +  n 


1 


2V2 


6V2 


144 


V— 5  -\-nV— 4  +  nV~ 3  -\-n\J — 2  +  nV~  1  -\- n^/nc[\]2kQt[— 6  +  «]  + 


1 

32 


a/— 3  +  nV—2  +  1  +  ((—3  H-4n)c[l]2  +  2c[2])ket[— 4  +  ^]  + 
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—  a/—  1  +ny/n  ((l  —  \9n-\-ln2)  c[l]2  +  4(— 1  +  2«)c[2])ket[— 2  -\-n\-\- 
^-Vl+nV2  +  n  ( (27  +  33 n  +  In2)  c[  l]2  -  4(3  +  2n)c[2])  ket[2  +  n}  + 

—  vT  +  n\/2  +  n\/3  +  n\/4  +  n  ((7  +4n)c[l]2  —  2c  [2])  ket[4  +  «]  + 

- \/l  +  n\j2-\-  nV  3  +  w\/ 4  +  nV  5  +  wV  6  +  nc[ll2ket[6  +  n 

144 

As  an  additional  problem,  calculate  the  average  values  of  xk  over  the  states  just 
obtained,  for  several  k.  At  n  1  compare  them  to  the  classical  averages  obtained 
from  the  particle’s  motion  x(t). 


Chapter  21 

Riemann  Curvature  Tensor 


Catching  a  lion,  the  Einstein  ’s  method:  Enter  the  cage  and  lock 
it  from  inside.  Then  the  Universe  will  be  subdivided  into  two 
disjoint  regions  in  such  a  way  that  you  are  in  one  of  them  and 
the  lion  is  in  the  other  one.  It  depends  on  one ’s  point  of  view 
whom  to  consider  caught;  for  convenience,  let’s  say  it’s  the 
lion. 

Suppose  we  have  a  coordinate  system  xp  in  a  region  of  an  ^-dimensional  Rie¬ 
mann  (or  pseudo-Riemann)  manifold  [20].  Components  of  the  metric  tensor  gpv  are 
given  as  functions  of  .  We  want  to  calculate  the  Riemann  curvature  tensor  Rpvocp 
and  related  quantities  (the  Ricci  tensor  Rpv,  the  scalar  curvature  R). 

The  metric  tensor  is  symmetric;  therefore,  it  is  reasonable  to  ask  the  user  to  pro¬ 
vide  only  the  components  with  p  >  v.  If  the  user  gives  an  argument  having  a  wrong 
shape,  we  print  an  error  message  and  abort  the  calculation.  We  shall  also  need  the 
contravariant  metric  tensor  g^v  defined  by  g^lgXv  =  8v- 
In[l]  :=  Metric[gO_]  :=  Module[{u  =  Length[gO],g,gu}, 

Do  [If  [Length  [gO  [  [ju]  ]  ] = !  ,  Message  [Metric  ::  shape];  Abort[]],{/i,#i}]; 

g  =  Table[If[/i  >  v,gO[[/i,v]],gO[[v,M]]],{M.«}.{v,n}]; 
gu  =  Simplify [Inverse[g]];  {n,g,gu}] 

In[2]  :=  Metric  ::  shape  =  ’’Wrong  shape  of  the  argument”; 

Next  we  calculate  the  Christoffel  symbols 

=  2  (d/lghy  +  dygkjj  —  d^gjjiy) 

and  rAlUV  =  gxprPiuy.  They  are  symmetric  in  p  and  v;  therefore,  we  calculate  them 
only  at  v  ^  p  and  reuse  the  calculated  values  at  v  >  p.  If  the  optional  parameter 
PrintNonZero  is  True,  nonzero  components  are  printed  (following  the  tradition,  in 
the  printed  results  all  indices  vary  from  0  to  n  —  1). 

In[3]  :=  Christoffel  g_,  gu_} ,  Opt  ions  Pattern  [I]  :=  Modulefir.Tu}, 

T  =  T  u  =  Table[0  -,{A,fi},{fi,ji},{v,ii}]; 

Do[rp,/i,v]]  =  Simplify[(Z%[[A,  v]],x[ji]]  +D[g[[A,/i]],.x[v]]- 
£>[g[[M,v]],Jc[A]])/2]; 
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if [m  /  v,r[[x,v,n]]=r[[x,n,v]]], 

{A,n},{/i,n},{v,/i}]; 

Do[ru[[A,ji,v]]  =  Simplify[Sum 
if[M^v,rup»v»M]]=ru 
{A  ,n}»{M»n}»{v»/t}]; 

If  [Option  Value[PrintNonZero] , 

Do[If[r[[A,/t,  v]]=!=0,Prmt[’T”,A  —  1,/t  —  1,  v—  l,””,r[[A,M,v]]]], 
{A,n},{/i,n},{v,M}]; 

Do[If[ru[[A,/i,  v]]=!=0,Prmt[’Tu”,A  —  l,[i  —  1,  v—  l,””,ru[[A,M,v]]]], 
{A»n} )  t  {v,/i}]]» 

R,ru}] 

In [4]  :=  Options[Christoffel]  =  {PrintNonZero  — >  True}; 

Finally,  we  calculate  the  Riemann  tensor 

Rap /dv  =  Sock  (djiF  p v  —  dvr  /3v— p ^  , 

the  Ricci  tensor  =  §a^ Ra/d (5 and  the  scalar  curvature  R  =  g^R^y.  The  Rie¬ 
mann  tensor  has  the  properties 

Rafijiv  =  ~Rf3aidv  =  ~^a[5 v/r  =  ^/iva/3  7 

and  we  use  them  to  avoid  unnecessary  calculations. 

In[5]  :=  Riemann [{/7_, g_, gu_} , OplionsPatternQ]  :=  ModuIe[{r,Tu, 

R  =  TMc[0,{a,n},{p,n},{fi,n},{v,n}],m  =  Tab\t[0,{fi}n}}{v}n}]}R0}, 
{r,ru}  =  Christoffel[{rc,g,gu}]; 

Do[/?[[a,j3,^i,v]]  =  /£[[j3,a,v,fi]]  =  Simplify  [Sum[ 

g[[a,A]]*(D[ru[[A,j3,v]],x[|i]]-D[ru[[A,j3,Ai]],x[v]]) 

+r[[oc,A,M]]*ru[[A,j3,v]]-r[[a,A,v]]*ru[[A^,M]].{^^}]]; 

=/e[[a^5v,M]]  =  -R[[a}p,fi}v]]; 
lf[fi^a}R[[fi,v}a,p]]  =  #[[v^jM]]  =R[[a,p,^v]]; 

R[[v}fi,a}  J3]]  =  £[[alv5JM]]  =  -£[[«,  JM,v]]]? 

{a,2,n},{^,«-  l}.{/t,2,a},{v,If[u  ===  a,B,u-  1]}]; 

Do[R2[[m»v]]  =  Simplify  [Sum[gu[[a,j3]]  *R[[a,  v]],  {«,»},  {/3,»}]]; 

If[M  +  v»R2[[v,/t]]  =  R2[[/t,v]]], 

RO  =  Simplify[Sum[gu[[/i,  v]]  * R2p,  v]]  * If[^t  ^  v, 2, 1], { v> M>]]; 

If[Option Value  [PrintNonZero] , 

Do[If[R[[a,0,M,v]]=!=O, 

Print[R,a- 1,0  -  1,/i-  I,v-  l,””,R[[a,/3,/t,v]]]], 

{a,2,n},{/3,a- l},{p,2,a},{v,If[/i  ===  a,0,M-  1]}]; 

Do[If[R2[[M»v]]=!=0»PrintrR”,At-l»v-l,””,R2[[M»v]]]],{M>n}»{v»M}]; 

If  [R0= !  =0,  Print[”R  ”,R0]]]; 

{/f,R2,R0}] 

In[6]  :=  Options[Riemann]  =  {PrintNonZero  — >  True}; 

Let’s  consider  an  example:  the  Schwarzschild  metric 

ds2  =  ^1  —  — ^  dt2  —  ^ r  /  Q  —  r2  (d02  +  sin2  0d<p2)  . 

r 


guP.P 

[A,m»v] 


]  *r[[p,ft,v]],{p,/i}]]; 


,  5 
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First  we  give  names  to  the  coordinates. 

In[7]  :=  Evaluate[Tabk[x[|i],  {M»4}]]  =  {t,r,d,<p}; 

Setting  the  Schwarzschild  radius  ro  =  1 ,  we  obtain 

In[8]  :=  Riemann[Metric[{{  1  —  l/r},{0,  — 1/(1  —  l/r)},{0,0,— rA2}. 
{0,0,0, -1*2  *Sin[e]A2}}]]; 

roio  1 


2  r2 


noo  - 


mi 


i 


2  r2 


1 


2(— 1  +  r)2 
F122  r 

r  133  rSin[0]2 
T221  -r 

T233  r2Cos[0]Sin[0] 
T331  —  rSin[0]2 

r 332  —  r2Cos[0]Sin[0] 

1 

TuOlO 


TulOO 


ruin 


2(— 1  +  r)r 
—  1  +  r 

2  r3 

1 


2r  —  2r2 

rul22  1-r 

r  ul33  —  (— 1  +  r)Sin[0]2 
r u221  - 

r u233  -Cos[0]Sin[e] 

F u331  - 
ru332Cot[e] 

R1010  4r 


R2020  - 
R2121 


—  1  +  r 

2  r2 

1 


R3030 


R3131 


2(— 1  +  r) 

(— 1  +  r)Sin[0]2 


Sin  [6]- 


2  r2 


—2  +  2r 
R3232  -  rSin[0]2 

The  Ricci  tensor  (and  hence  the  scalar  curvature)  vanishes.  Therefore,  the 
Schwarzschild  metric  satisfies  the  vacuum  Einstein  equation. 


Chapter  22 

Multi- f  Functions 


22.1  Definition 


The  Riemann  ^-function  is  defined  by 


1 


&  =  X- 

Ti  n 


n>  0 


Mathematica  knows  this  function;  it  can  be  expressed  via  powers  of  n  for  even 
integer  values  of  s. 

In[l]  :=Table[Zeta[s],{^2,6}] 

f  7 7 

Out[l]  =  <  —  ,Zeta[3],  —  ,Zeta[5' 


90 


’  945 


Let’s  define 


£s\S2  —  X 


1 


sl  s2  ’ 

ni>n2>  0nln2 


Cs\s2S3  —  51 


1 


Si  s 2  S3  7 

ni>n2>n  3>0nln2ni> 


and  so  on.  These  series  converge  at  >  1 .  Mathematica  does  not  know  these  multi- 

£  functions.  The  sum  s\  +  S2  H - b  Sk  is  called  the  weight.  All  relations  we  shall 

discuss  contain  terms  of  the  same  weight  (the  weight  of  a  product  is  the  sum  of  the 
weights  of  its  factors). 


22.2  Stuffling  Relations 

Suppose  we  want  to  multiply  £sCsis2: 


y  — 1 — 

"  nsnfnf 

n>  0  1  Z 

ni>n2>0 
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22  Multi- f  Functions 


Here  n  can  be  anywhere  with  respect  to  n\,  ri2.  There  are  five  contributions: 


I 


i 


«>«,>«2>0  nSnln2 


C 


I 


1 


9  sl  s2 

n=ni>n2> 0  n  nl  n2 


SS\S2  ? 


I 


1 


n{>n>n2>0  nSn\n2 


=  c 


^1^2  ’ 


I 


1 


?  sl  s2 
ni>n=n2> 0  "V  w2 


Csir 


I 


1 


?  ^1  ^2 
»1>n2>i1>0rtl  n2 


=  e 


^1^2^ 


This  process  reminds  shuffling  cards.  The  order  of  cards  in  the  upper  deck,  as  well 
as  in  the  lower  one,  is  kept  fixed.  We  sum  over  all  possible  shufflings.  Unlike  real 
playing  cards,  however,  two  cards  may  be  exactly  on  top  of  each  other.  In  this  case 
they  are  stuffed  together:  a  single  card  (which  is  their  sum)  appears  in  the  result¬ 
ing  deck.  A  mathematical  jargon  term  for  such  shuffling  with  (possible)  stuffing  is 
stuffing. 

In[2]  :=  Show  [Imported  .jpg”]] 


Out[2]  = 


22.3  Integral  Representation 
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Let’s  implement  this  in  Mathematica.  The  multi- £  function  will  be  called  £;  it 
can  have  any  number  of  arguments.  The  function  Stuffling  first  of  all  transforms 
products  of  £  functions  (including  squares)  to  a  local  function  z  with  three  list  pa¬ 
rameters:  the  first  two  contain  the  arguments  of  the  initial  £  functions,  and  the  third 
one  is  empty.  These  are  our  two  decks  for  shuffling  and  the  resulting  deck,  initially 
empty.  All  the  work  is  done  by  the  following  repeated  substitution.  Let  the  two  un¬ 
processed  decks  be  nonempty:  the  first  one  contains  some  front  “card”  a _  and  the 

remainder  A _ ;  the  second  one — the  front  “card”  b  _  and  the  remainder  B _ Then 

there  are  three  possibilities:  either  we  move  the  front  “card”  from  the  first  deck  (a) 
to  the  resulting  deck,  or  we  move  the  front  “card”  from  the  second  deck  (b)  to  the 
resulting  deck,  or  we  take  the  front  “cards”  from  both  decks  and  put  their  sum  to 
the  resulting  deck  (stuffing).  We  need  to  use  a  delayed  substitution  :  >  here  to  ensure 
that  the  command  Expand  in  its  right-hand  side  is  executed  when  the  substitution 
is  applied.  In  addition  to  this,  we  should  take  care  of  the  situations  when  one  of  the 
source  decks  becomes  empty.  In  this  case  we  can  just  append  the  other  source  deck 
to  the  resulting  one  and  yield  the  result. 

This  process  can  also  be  described  as  the  following.  The  final  result  is  a  sum 
of  many  £  functions  with  various  argument  lists.  During  intermediate  steps,  the 
function  z[deckl,deck2,res]  represents  the  sum  of  a  subset  of  terms  of  the  result 
whose  argument  lists  begin  with  res.  At  each  step  we  subdivide  this  sum  into  three 
parts,  according  to  three  possible  values  of  the  next  argument. 

In[3]  :=  Stuffling[x_]  :=  Module[{v,z},v  =  x/. 

m-r2->z[{A},{AU}M\A— ]*£[»— ]->z[{A}, {*},{}]}; 
y/l.{z[{UB— },{C— }]->C[C,tf|,z[{A— },{},{C—  }]->f[C,A], 
z[{a.,A—},{b-,B— }] :  > 

Expand[z[{A},{M},  {C,a}]  +z[{a,A },  {£},  {C,fc}]+ 
z[{A},{B},{0+*}]]}] 

In[4]  :=  Map[Stuffling,  {£[x]A2,  £[x]  *  CM.  CM  *  CM }] 

Out  [4]  =  {£[2x]+2  £[x,x],£[x  +  y\  +  £[x,y\  + 

Cfc y,x  +  z]  +  C[*+M  +  C[x,M  +  £[y>M  +  ^[y,z,x]} 


22.3  Integral  Representation 


It  is  easy  to  check  the  integral  representation  of  the  ^-function  of  an  integer 
argument 


l>xi>-->x5>0 


dxv_i  dxs 
Xs—  1  1  xs 


Let’s  denote 


dx 

COq  =  — , 


C 0\ 


dx 

1  — x 
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All  integrals  will  always  have  the  integration  region  1  >  x\  >  •  •  •  >  v?  >  0.  Then 

£s  =  j  1  ®1  • 

This  representation  can  be  generalized  to  multi- £  functions: 

C',52  =  J  £,1*2*3  =  J 

and  so  on.  Let’s  write  functions  for  transforming  £  with  integer  arguments  to  such 
integral  representation  and  back.  The  integral  representation  £ i  takes  an  arbitrary 
number  of  arguments  equal  to  0  or  1  corresponding  to  coq,  (0\. 

In[5]  :=  s2i[x_]  :=McKiuie[{y,z},y  =  x/.£[A___]->z[{A},{}]; 

z[{a.,A — },{S — }]  :> 

s[{^}»Append[Join[{B},Table[0,{a-  1}]],  1]]}] 

In[6]  :=  /  =  Map[s2i,  {£[2],  £[2,3]}] 

Out[6]  =  {£i[0,l],£i[0, 1,0,0, 1]} 

In[7]  :=i2s[x_]  :=Module[{y,z},y  =  x/.£i[A — ]->z[{A},{l}]; 

y//-{z[{  }]->£[*]. 

z[{a.,A — },{B — ,b.}\:> 

If[a  ==  0,z[{A},{B,Z>  +  l}],z[{A},{B,M}]]}] 

In[8]  :=Map[i2s,/] 

Out[8]  =  {£[2],  £[2,3]} 

In[9]  :=  Clear[/] 


22.4  Shuffling  Relations 


Suppose  we  want  to  multiply  £2  •  C2; 


(Oq  CO\  • 


tU()  CO\  . 


l>xi>x2>0  1  >jc/1  >x'2>0 


The  order  of  primed  and  non-primed  integration  variables  is  not  fixed.  There  are  six 
contributions: 


1  >  x\  >  x2>  x\  >  x'2  >  0  : 

1  >  x\  >  x[  >  x2  >  x'2  >  0  : 

1  >  x\  >  x[  >  x2  >  x2  >  0  : 


C0qC0\C0qC0\  =  £22 ; 
COoCOqCOiCOi  =  £ 31  ; 


COoCOqCOiCOi  =  £ 3 


22.4  Shuffling  Relations 
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1  >  x[  >  x\  >  %2  >  x'2  >  0  : 

1  >  x[  >  x\  >  x'2  >  X2  >  0  : 

1  >  x[  >  x'2  >  x\  >  X2  >  0  : 


COqCOqCOiCOi  =  ^31  ; 
(OqCOqCOiCOi  =  £31 ; 
COqCOiCOqCOi  =  £22  • 


Now  we  are  multiplying  integrals,  not  sums.  Therefore  our  “cards”  are  now  in¬ 
finitely  thin  and  cannot  be  exactly  on  top  of  each  other.  There  are  just  two  kinds  of 
“cards”:  coq  and  co\,  and  we  sum  over  all  possible  shufflings  of  two  decks. 


In[10]  :=  Show  [I mport [”c2  jpg”] ] 


In[ll]  :=  shuffling[x_]  :=  Module[{v*z}*y  =  a*/. 

{Ci[A___]A2->z[{A},{A},{}], 

Ci[A...]^i[B...]->Z[{A},{B},{}]}; 

y//.{z[{},{B—  },{C— }]->Ci[C,fi],z[{A...},{},{C...}]->?i[C,A], 

Expand[z[{A},  {b,B},  {< C,a }]  +z[{a,A}»  {B}»  {C,b}]]}\ 

In[12]  :=  Shuffling[,v_]  :=  i2s(Expand[shuffling[s2i[x]]]] 

In[13]  :=  Map[Shuffling,  {£[2]A2,  £[2]  *  4T[3],  £[2]  *  £[2»  1]}] 

Out  [13]  =  {2C[2,2]  +4C[3, 1],C[2,3]  +  3£[3,2]  +6£[4, 1], 
C[2,1,2]+3C[2,2,1]+6C[3,1,1]} 
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22.5  Duality  Relations 

The  integral  representation  allows  us  to  derive  another  set  of  useful  relations,  even 
simpler  than  shuffling — duality  relations.  Let’s  make  the  substitution  Xi  — >  1  —  vz. 
Then  aio  < — y  C0\ ;  to  preserve  the  order  1  >  x\  >  •  •  •  >  >  0,  we  have  to  arrange 

all  the  co  factors  in  the  opposite  order.  In  other  words,  after  writing  down  an  integral 
representation  for  a  multi-  £  value,  we  may  read  it  in  the  Arabic  fashion,  right  to  left, 
simultaneously  replacing  coo  < — y  co\ .  Duality  relations  are  the  only  known  relations 
which  say  that  two  multi- £  values  with  distinct  arguments  are  just  equal  to  each 
other. 

In[14]  :=  duality  [x_]  :=  Module[{y,z},y  =  x/.£i[A___]->z[{A},{}]; 

37/-{z[{}.{fi  — }]->Ci[fi].z[{a-^  — },{5  — }]-  >z[{A}  ,{l-a,B}]}] 

In[15]  :=  Duality[x_]  :=  i2s[duality[s2i[x]]] 

In[16]  :=  Map  [Duality,  {  C[3] ,  £[4],  £[51 .  £[4,1],  £[3,  2] ,  £  [2, 3] }] 

Out  [16]  =  {£[2, 1], £[2,1,1], £[2, 1,1,1], £[3,1,1], £[2,2, 1],  £[2, 1,2]} 


22.6  Weight  4 


There  are  four  converging  multi-£  series  of  weight  4:  £4,  £31,  £22,  and  £211.  Due  to 
duality,  two  of  them  are  equal  to  each  other. 


In[17]  :=  Duality [£ [4]] 

Out[17]  =  £[2,1,1] 


We  can  express  £4  via  £7  using  their  explicit  values: 

In[18]  :=S  =  £[4]— >Zeta[4]/Zeta[2]A2* £[2]A2 

Out[18]  =  £[4]  ■  2<=[2]2 


Two  equations  for  £7  follow  from  stuffling 

In[19]  :=  eql  =  £[2]A2  ==  Stuffling[£[2]A2] 

Out[19]  =  £[2]2  ==  £  [4]  +  2£[2,2] 


and  shuffling 

In[20]  :=  eq2  =  £[2]A2  ==  Shuffling[£[2]A2] 

Out[20]  =  £[2]2  ==  2£[2,2]  +4£[3, 1] 

They  can  be  solved  for  £22  and  £31  (taking  the  expression  for  £4  into  account). 

In[21]  :=s  =  Solve[{eql/.S,eq2},{£[2,2],  £[3, 1]}][[1]] 

Out[21]  =  /£[2,2]^ffl^,£[3,l]  •  C[2]' 


10 


10 


Thus  we  have  demonstrated  that  all  multi- £  values  of  weight  4  can  be  expressed 
via  £2  • 

In [22]  :=  Clear[S] 


22.7  Weight  5 
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22.7  Weight  5 


There  are  four  distinct  multi-  £  values  of  weight  5, 

In[23]  :=  Map[Duality,{£[5],£[4, 1],  £[3,2],  £[2,3]}] 

Out[23]  =  {£[2, 1,1,1],  £[3,1,1],  £[2,2,1],  £[2,1, 2]} 
due  to  duality.  The  stuffling  relation  for  £2  £3 : 

In[24]  :=  eql  =  £[2]  *  £[3]  ==  Stuffling[£[2]  *  £[3]] 

Out  [24]  =  £  [2]  £  [3]  ==  £  [5]  +  £  [2, 3]  +  £  [3 , 2] 

A  similar  equation  where  £3  is  written  in  the  dual  form. 

In[25]  :=  eq2  =  Stuffling[£[2]  *Duality[£[3]]] 

Out  [25]  =  £[2,3]  +  £[4, 1]  +  £[2, 1,2]  +2£[2,2, 1] 

In[26]  :=  eq2  =  eq2/.  {£[2, 1,2] :  >Duality[£[2, 1,2]], 

£[2,2,1] :  >Duality[£[2,2, 1]]} 

Out[26]  =  2£[2,3]  +2£[3,2]  +  £[4, 1] 

In[27]  :=  eq2  =  £[2]*  £[3]  ==  eq2 
Out  [27]  =  £  [2]  £  [3]  ==  2£[2,3]  +2£[3,2]  +  £[4, 1] 

The  shuffling  relation  for  £2  £3 : 

In[28]  :=  eq3  =  £[2]  *  £[3]  ==  Shuffling[£[2]  *  £[3]] 

Out  [2  8]  =  £  [2]  £  [3]  ==  £[2,3]  +3£[3,2]  +6£[4, 1] 

This  system  can  be  solved  for  £41,  £32,  and  £23. 

In [29]  :=  s  =  Solve[{eql,eq2,eq3},  {£[4, 1],  £[3,2],  £[2,3]}] [[1]] 

Out [29]  =  {  £[4, 1]  -  £ [2]  £  [3]  +2£[5],  £[3,2]  3 £ [2]  £ [3]  - 


11£[5] 


£[2,3]  -s-  — 2£ [2] £ [3]  + 


9£[5]j 


Thus  we  have  demonstrated  that  all  multi- £  values  of  weight  5  can  be  expressed  via 
£2  £3  and  £5. 


Chapter  23 

Rainbow 


23.1  Statement  of  the  Problem 

We  consider  scattering  of  light  by  a  spherical  water  drop  in  geometrical  optics.  For 
small  drops,  diffraction  becomes  significant;  our  analysis  is  only  valid  for  drops 
which  are  not  too  small.  Let  the  drop  radius  be  1 .  The  ray  with  the  impact  parameter 
p  splits  into  the  reflected  ray  and  the  refracted  one.  Their  directions  are  given  by  the 
Snell  law 

In[l]  :=  Snell  =  {a— >ArcSin[p],j3— >ArcSin[p/n]}; 

where  the  refraction  index  of  water  is 

In[2]  :=  Water  —  n—>  1.333; 

In[3]  :=  col  =  {RGBColor[l,0,0],RGBColor[0,0,  l],RGBColor[0,  1,0], 
RGBColor[l,0,  l],RGBColor[0, 1,  l],RGBColar[l,  1,0]}; 

In[4]  :=  With[{y  =  0.6}, 

With[{a  =  a/.Snell/.p— >y,j3  =  J3/.  Snell/,  p— >y/.  Water, 
x=— Sqrt[l— yA2]}, 

With[{q»  =  jc—  a,ft  =  n  —  2*  a},  With[{  y/  =  (p+2*P~ic}t 
Graphics[{Black,Circle[],Lme[{{— 2,0},  {1.2,0}}], 

Line[{{0,0},{2*  Cos[<p]  ,2*Sin[<p]}}], 

Line[{  {0, 0} ,  {Cos[y/] ,  Sin  M  }  }] , 
Line[{{jc,y},{jc,0}}],col[[l]],Line[{{-2,y},{jr,y}}]» 
col[[2]],Lme[{{x,y},  {x+  1.5*Cos[#],y+  1.5*Sin[d]}}], 
col[[3]j » Line[{  {x,/} ,  {Cos  [  tp]  ,Sin[i//]}}], 

Black,  Inset  [Style[”cT ,  24],  {-0.25,0.1}], 

Inset[Style[”a”,  24] ,  {x  —  0.25,  y  +  0.1}], 

Inset[Style[”a”,  24  ,  {x  —  0. 15, y  +  0.25}] , 

Inset[Style[”j3”,  24] ,  {x + 0.35,  y  -  0.15}] , 

Inset[Style[”p”,  24] ,  {x + 0. 1 , 0.5  *  y}] }]]]]] 
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The  incident  ray  hits  the  drop  at  the  point  {Cos[<p],Sin[<p]},  where  (p  =  k  —  a. 
The  reflected  ray  has  the  direction  $  =  n  —  2a.  The  refracted  ray  hits  the  drop 
surface  again  at  {Cos  [1/7],  Sin  [i/a]},  where  y/  =  (p  +  2/3  —  n. 

The  incident  light  has  two  polarizations,  with  the  electric  field  orthogonal  to  the 
scattering  plane  or  lying  in  this  plane.  The  reflection  coefficients  for  these  polariza¬ 
tions  are  given  by  the  Fresnel  formulas  [21]  (they  don’t  depend  on  the  direction,  i.e., 
are  the  same  for  a  ray  entering  water  and  a  ray  leaving  it). 

In[5]  :=  Rs  =  (Sin[«  —  J3]/Sin[«  +  J3])A2;  Rp  =  (Tan[«  —  J3]/Tan[a  +  J3])A2; 


23.2  0  Ray  Segments  Inside  the  Drop 


First  let’s  consider  rays  reflected  by  the  drop  immediately  after  they  hit  its  surface. 


In[6]  :=RayO[y_?a_]  :=  With[{a  =  a/.Snell/.p— >y, 

J3  =  J3/. Snell/. p— >v/.Water,.v  =  —  Sqrt[l  —  vA2]}, 
With[{$  =  n-2*a},  {col[[l]],Line[{{- 1  -  a,y},  {x,y}} 
col[[2]] , Line[{ {.v,  v} ,  {.v + a  *  Cos[??],_v + a  *  Sin[i>] } } 
In[7]  :=  Manipulate[Graphics[Join [{ Black,  Circle[] } .  RayO[v. «]] . 
PlotRange->{{-l  -<j,  l.l},{-l.l,a+0.7}}], 
{{j,0.6},0,l},{{a,2},l,10}] 
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Out  [7] 


' - 0 

"— [] - 


In[8]  :=  Manipulate[ 

Graphics[ 

Join  [{Black.  Circle  \\ } , 

With  [{5  =  (pmax  — pmin)/M}, 

If[5  >  0,Apply[Join,Table[Ray0ty»a]»{y,pmm+5/2,pmax,5}]],{}]]], 
PlotRange->{{-l  -a,l.l},{-l.l,a+0.7}}], 

{{pmin,0},0, 1},  {{pmax,  1},0, 1}» 

{{M,  10},Table[i,  {/,30}]},  {{a,  2},  1, 10}] 
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Out  [8] 


The  scattering  angle  is 

In[9]  :=  #0  =  n  —  2  *  a; 

In[10]  :=  Plot  [Evaluate  [  $0/ .  Snell],  {p.0. 1}] 

3.0 

2.5 

2.0 

Out  [10]  =  15 

1.0 

0.5 

0.2  0.4  0.6  0.8  1.0 

In  order  to  calculate  the  differential  cross  section,  we  need  to  express  p  via  the 
scattering  angle 
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In[ll]  :=  solO  =  Simplify[Solve[($0/. Snell)  ==  $,p], 0  <  #  <  n] 

$ 

2 

[i]] 


Out[l  1]  = 


Cos 


Out  [12]  =  Cos 


In[12]  :=  pO  =  p /.  solO[ 

2 

In[13]  :=  Clear[solO] 

The  angles  a  and  /3  are 

In[14]  :=  SnellO  =  {a—>(n—  #)/2,j3— >ArcSin[Sin[a]/ft]}; 

The  area  of  the  ring  in  the  transverse  plane  corresponding  to  the  scattering  angles 
between  $  and  $  +  d$,  divided  by  dQ  =  2/rSin[$]  d$,  is 

In[15]  :=  <t0  =  Simplify  [—Z)[p  02,  #]/(2  *  Sin[#])] 

Out[15]  =  \ 


Therefore,  the  cross  sections  for  the  two  polarizations  are 

In[16]  :=  a0s[$_]  =  Simplify  [crO *  Rs//. SnellO/.  Water]; 

<rOp[#  _]  =  Simplify  [crO  *  Rp/ /.  SnellO/.  Water]; 

In[17]  :=  Plot[{crOs[tf], oOp[0],  (aOs[d]  +  a0p[#])/2}, it}, 
PlotRange— >  All,  PlotStyle— >col] 


Note  that  there  is  a  scattering  angle  $  at  which  the  scattered  light  is  completely 
polarized:  its  electric  field  is  orthogonal  to  the  scattering  plane.  This  happens  when 
a  is  equal  to  the  Brewster  angle  aB 
In[18]  :=  aB  =  ArcTan[n];  aB/. Water 
Out[18]  =0.927175 
In  this  case 

In[19]  :=  J3B  =  ArcTan[l  //?]; 

so  that  aB  +  /3B  =  7t/2  — the  refracted  ray  is  perpendicular  to  the  reflected  one: 
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In [20]  :=  Graphics[{Line[{ {— 1,0}, {1,0}}], Line[{ {0,— 1},{0,1}}], 

c°l[[l]])Line[{{0,0},{— 1,1/n}}]) 

c°l[[2]],Line[{{0,0},{l,  l/«}}], 
col[[3]],Line[{{0,0},{l/«,-l}}], 

Black,  Inset[Style[”a”,  24] ,{  -0.06, 0. 1 3}] ,  Inset[Style[”a”,  24] ,  {0.06, 0.13}], 
Inset[Style[”/3”,  24] ,  {0.06,  -0.13}]}]/.  Water 


When  the  incoming  light  with  the  electric  field  in  the  scattering  plane  reaches  water, 
electric  dipoles  in  it  oscillate  along  the  direction  perpendicular  to  the  refracted  ray; 
they  don’t  radiate  in  the  direction  along  this  axis,  i.e.,  don’t  produce  the  reflected 
ray:  Rp  =  0. 

In[21]  :=  Plot[a0p[$],{$,0,;r},PlotRange— >{0,0.01}] 


Out  [21] 


0.010 


0.008 


0.006 


0.004 


0.002 


0.0 


In[22]  :=  #0/.a— >aB/.  Water 

Out[22]  =  1.28724 


1.5 


2.0 


2.5 


3.0 
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23.3  1  Ray  Segment  Inside  the  Drop 

In[23]  :=  Rayl[y_,a_]  :=  With[{a  =  a/.Snell/.p— >y, 

/}  =  /J/.Snell/.p— >y/.  Water,  x  =  — Sqrt[l  — yA2]}, 

With[{<p  =  it- a, 6  =  2*(j3  -a)},With[{y  =  <p  +  2*j3  —  it}, 

With[{xl  =Cos[y],yl  =Sin[y]}»{col[[l]],Line[{{— 1  -  a,y},  {x,y}}] 
col[[3]],Line[{{x:,y},{xl,yl}}], 

col[[2]j ,  Line[{  {xl , y  1 } ,  {x  1 + a  *  Cos[tf] ,  y  1  +  a  *  Sin[d] }}]}]]]] 
In[24]  :=  Manipulate[Graphics[Jom[{Black,Circle[]},Rayl[y,a]], 

PlotRange— >{{— 1  —a,l+a},{—l.l,  l.l}}],{{y,0.6},0, 1}, 

{{a,2},l,10}] 


When  entering  water,  the  ray  is  deflected  by  a  —  /3  clockwise;  when  leaving  water, 
it  is  deflected  by  the  same  angle  again.  The  direction  of  the  outgoing  ray  is 

In[25]  :=  #1  =  2* (/3  —  a); 

In[26]  :=  Manipulate[ 

Graphics[ 

Join  [{Black.  Circle[] } , 

With  [{5  =  (pmax  =  pmin)/M}, 

If[S  >  0,  Apply[Join,  Table[Ray  1  |y,  a] » {y»  pmin + S/2, pmax,  5}]] ,{}]]]  * 
PlotRange— >{{—1  -a,  1  +a},{-l.l,  1.1}}], 

{{pmin,0},0, 1},  {{pmax,  1},0, 1}, 

{{M,  10},Table[i,  {i,30}]},  {{a, 2},  1, 10}] 


Out  [26] 
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The  scattering  angle  $  is  obtained  by  reducing  1}  1  to  the  interval 
taking  Abs;  in  the  present  case,  it  is  just  —  $1. 

In[27]  :=  Plot[Evaluate[—  #1/. Snell/. Water] ,  {p,0, 1 }] 


n 


and  then 


It  varies  from  0  to 

In[28]  :=  #lm  =  Simplify  [—  #l/.Snell/.p— >1] 

Out [28]  =  7 r  —  2  ArcSin  ' 


n 


In [29]  :=  #lm/.  Water 

Out[29]  =  1.4449 

Now  we  have  to  solve  the  equation  a  —  /3  =  $/2  for  p. 

In[30]  :=  eql  =  (TrigExpand[Sin[a  —  J3]]/.  {Sin[a]=>p,Cos[a]=>Sqrt[l 
Sin[j3]— >p/n,Cos[j3]— >Sqrt[l  -  (p/n)A 2]})  ==  Sin[d/2] 

7 


PA2] 


Out[30]  =  - 


P\/1-P2 


n 


+p\  1 


==  Sin 


ft' 


In[31]  :=  soil  =  Solve[eql,p] 

Out[31]  —  -  -  v/CTffl 


V2Jl+n2-2nCos 
\fn2  —  ft2Cos[$] 


V2J 1  +  n2  —  2«Cos 
\fn2  —  ft2Cos[$] 


A/ 


1  -f  ft2  +  2ft  Cos  [4 


\/n2  —  ft2Cos[$] 


vV 


1  +  ft2  +  2ft  Cos 


L  2  J 


We  discard  the  negative  solutions.  The  positive  ones  evaluated  at  film  are 

In[32]  :=  Simplify[p/. soil [[{2,4}]]/.#— >#lm,/i  >  1] 


Out  [3  2]  =  <  1, 


—  1  +  ft: 

3  +  ft2 
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So,  the  right  solution  is  number  2: 

In[33]  :=  pi  =  Simplify  [Simplify  [p /.soli  [[2]] ,  {n  >  1,0  <  #  <  7t}]/. 
Cos  [0]  ■ -  >  1  —  2  *  Sin[d/2] ' A2,  {n  >  1 ,  d  >  0,  d  <  n }] 

ft  Sin  [y] 

Out[33]  =  L  2  J 


1  +n2  —  2ft  Cos 


d 
L  2  J 


In[34]  :=  Clear [eql, soli] 

The  geometrical  cross  section  for  #  between  $  and  #  +  d$,  divided  by  dQ,  is 

In [35]  :=  g\  =  Simplify  [D[p  1  2,  #]/(4 * c2 * s2)/. 

{Cos[d  /  2] — >c2,  Sin[d /2] — >s2}] 

.  .  ft2  (c2  —  2c22ft  +  c2ft2  —  fts22) 

4c2(l-2c2  ft  +  ft2)2 

where  c2  =  Cos[#/2],  s2  =  Sin [i9- / 2] .  The  angles  a  and  j3  are 

In[36]  :=  Snelll  =  {a— >ArcSin[pl],j3— >ArcSin[pl/w]}; 

The  differential  cross  sections  for  the  two  polarizations  are 
In [37]  :=  cs2  =  {c2—  >Cos[d/2],s2=>Sin[d/2]}; 

In[38]  :=  <rls[$_]  =  Simplify  [oi  *  (1  =  Rs)A2/.Snelll/.cs2/.  Water]; 

crlp[d_]  -  Simplify[crl  *  (1  =  Rp)A2/.Snelll/.cs2/.  Water]; 

(the  transmission  coefficient  is  T  =  1  —  R,  and  transmission  happens  twice). 
In[39]  :=Plot[{<yls[d],<rlp[d],(als[d]  +  <rlp[d])/2},{$,0, dim/.  Water}, 
PlotRange— >  All,  PlotStyle— >col] 


23.4  2  Ray  Segments  Inside  the  Drop 

In[40]  :=  Ray2[y_,a_]  :=  With[{a  =  a/.Snell/.p— >y, 

J3  =  j3/.Snell/.p—>y/.  Water, x=  —  Sqrt[l  —  vA2]}, 

With[{d  =  4*j3-2*a-;r}, 

Module[{<p  =  n-a,R  =  {col  [[  1  ]] ,  Line[{  {  - 1  -  a,y} ,  {x,y }  }] } , 
xl=x,yl=y,x2,y2,yr}, 


ff  & 
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yf=<p  +  2*/3  —  n\  x2  =  Cos[y^];  y2  =  Sin[yf]; 

R  =  Join[/f,  {col[[3]],  Line[{  {x  1 ,  y  1 },  {x2,  y2}  }] }] ; 

q>  =  y/;  xl  =  x2;  yl  =  y2;  i/A  =  <p  +  2*/3  —  7r;  x2  =  Cos[y];  y2  =  Sin[y]; 

R  -  Join[/f,  {col[[4]] ,  Line[{  (x  1 ,  y  1 } ,  (x2,  y2}  }] }] ; 

Join[R,  {col[[2]] , Line[{{x2,  y2},  {x2 + a  *  Cos[d] , y2  +  a  *  Sin[d] }}] }]]]] 
In[41]  :=  Manipulate  [Graphics  [Join  [{ Black,  Circle  [] } ,  Ray2[y,  a]]} 

PlotRange— >{{— 1  —  a,  1 . 1 },  {— 1  —  0.7  *  a,  1 . 1 }}] , 

{{y>0.6},0, 1},  {{a, 2},  1, 10}] 


j - o 

a  f] 


The  second  segment  of  the  ray  inside  the  drop  is  obtained  from  the  first  one  by 
rotating  by  the  angle  n  —  2/3  clockwise;  hence  the  outgoing  ray  is  obtained  from  the 
one  in  the  previous  section  by  the  same  rotation: 

42]  :=  #2  =  4*J3  —  2* a  —  n; 

43]  :=  Manipulate[ 

Graphics[ 

Join  [{Black.  Ciiclefl  } , 

With  [{5  =  (pmax  —  pmin)/M}, 

If[5  >  0,Apply[Join,Table[Ray2ty»a]»{y»pmm+5/2,pmax,5}]],{}]]], 
PlotRange— >{{—1  —  a}  1.1},  {— 1  —0.7*  a,  1.1}}], 

{{pmin,0},0, 1},  {{pmax,  1},0, 1}» 

{{M,  10},Table[i,  {/,  30}]},  {{a, 2},  1, 10}] 
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The  real  scattering  angle  is  $  =  —  $2: 

In[44]  :=  Plot[—  #2/. Snell/.  Water, {p,0, 1}] 


It  has  a  minimum  at 

In[45]  :=  s2r  =  Solve[D[#2/. Snell, p]  ==  0,p] 


Out  [45] 


yj  A  — 


nA 


V3 
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In [46]  :=  p2r  —  p/.  s2r[[2]] 

Out  [46]  =  V-JL 
equal  to 

In[47]  :=  #2r  =  — #2/.Snell/.p— >p2r 

Out  [47]  =  7TH-2ArcSin 

In[48]  :=  {p2r,$2r}/.  Water 

Out  [4  8]  =  {0.860835,2.40719} 

Rays  from  a  relatively  wide  ring  around  p2r  have  practically  the  same  scattering 
angle  $2r.  This  contribution  to  the  cross  section  tends  to  °o  at  this  angle.  When  an 
observer  sees  a  cloud  of  water  drops  illuminated  by  the  sun,  especially  bright  light 
rays  arrive  along  the  cone  with  angle  n  —  $2r.  Usually,  only  a  part  of  the  circle  is 
seen  (the  full  circle  can  be  sometimes  observed  from  an  airplane). 

In[49]  :=  With[{R  =  — Tan[#2r/.  Water] },Graphics3D[ 

Join[{Opacity  [0. 1] ,  Yellow,  Cone[{{  1 ,0,0},  {0, 0,0}},/?]}, 

Apply  [Join,  Table[ 

Module[{jc  =  0.5  *  (Random[|  + 1),  <p  =  2  *  n*  Randomly,  z}, 
y  =  R*x*Cos[<p];  z  =  R*x* Sin[<p]; 

{Red,  Line[{{0,y,  z}»  {x.y,  z}  }] ,  Blue,  Line[{  {x,y,  z},  {0,0,0}}]}], 
{m,50}]]]. 

Boxed—  >False,  ViewPoint— >{— 10,  —30,0}]] 


V4 


n* 


Vi 


—  4  ArcSin 


V4 


n* 


Vi, 


n 
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In[50]  :=  Show [ImportfYainbow.jpg”] ] 


Out  50]  — 


The  scattering  angle  at  p  =  1  is 

In [51]  :=  #2m  =  — #2/.  Snell/,  p— >1 

r  n  1 

Out  [51]  =  2k  —  4ArcSin 


n 


In [52]  :=  {#2rw,  t)2mw}  =  { #2r,  #2m}/.  Water; 

Now  we  have  to  solve  the  equation  a  —  2/3  =  (#  —  n)/2  for  p. 

In[53]  :=  eq2  =  (TrigExpand[Sin[a  —  2  *  J3]]/. 

{Sin[a]  — >  p,Cos[a]  Sqrt[l  —  pA2], 

Sin[/3]  -)•  p/n,  Cos[/3]  ->•  Sqrt[l  -  (p/n)A2]»  ==  -Cos[d/2] 


2Pv/r 


/  p2\ 

==  -Cos 

r^i 

1  0 

V  n  ) 

[2  J 

Out  [5  3]  =  -t-~ 

nz  n 

In[54]  :=  sol2  =  Solve[eq2.p]; 

The  solution  number  3  is  the  smaller  one;  number  4  is  the  larger  one  (1  and  2  are 
negative). 

In [55]  :=p2a  =  p/.sol2[[3]];  p2b  =  p/.sol2[[4]]; 

In[56]  :=  Clear[eq2,sol2 

In [57]  :=  p2a  =  ParametricPlot [  { ?!1,  p  2a / .  Water} ,  #2r/.  Water, 7r}, 

PlotStyle  — ►  Blue]; 

p2b  =  ParametricPlot[{?^,p2b/.  Water},  { #,  #2r/.  Water,  #2m/.  Water}, 
PlotStyle  Red] ; 

Show[p2a.  p2b.  PlotRange  {  { #2r/.  Water,  7r} ,  {0, 1}}] 
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In  order  to  scatter  between  $  and  #  +  d$,  the  incident  ray  has  to  hit  one  of  the  two 
rings,  a2a  or  (if  $  <  $2m)  (j2b. 

In [5 8]  :=  a2a  =  —  (£>[p2aA2, $]/(4*c2*s2)/.{Cos[#/2]  — >>  c2,Sin[#/2]  — >  s2. 
Cos[$]  — *  c2A2  —  s2A2,Sin[$]— >2  *  c2*  s2}); 
a2b  =  D[p2bA2,^]/(4*c2*s2)/.{Cos[d/2]  ^c2,Sin[d/2]  ^s2, 

Cos[$]  — *  c2A2  —  s2A2,  Sin[$] — >2  *c2*  s2}; 

The  angles  a  and  /3  in  these  two  cases  are 

In[59]  :=  Snell2a  =  {a— >ArcSin[p2a],j3— >ArcSin[p2a/fi]}; 

Snell2b  =  {a— >ArcSin[p2b],j3— >ArcSin[p2b/n]}; 

The  differential  cross  sections  for  the  two  polarizations  are 
In [60]  :=  a2as[#_]  =  a2a*  (1  —  Rs)A2*Rs/.Snell2a/.cs2/.  Water; 
a2ap[#_j  =  a2a*  (1  —  Rp)A2*Rp/.Snell2a/.cs2/.  Water; 
a2bs[i^_]  =  a2b  *  (1  —  Rs)2  *  Rs/.  Snell2b/.  cs2/.  Water; 
a2bp[#  _]  =  a2b  *  (1  —  Rp)  A2  *  Rp/.  Snell2b/.  cs2/.  Water; 

In[61]  :=  a2s[#_]  :=  If[#  >  #2rw,  <r2as[$]  +  If[#  <  #2mw,a2bs[#],0],0]; 
a2p[#_]  :=  If[#  >  #2rw,a2ap[$]  +  If[i>  <  #2mw,  a2bp[$] ,  0] ,  0] ; 
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In[62]  :=Plot[{a2s[d],o2p[d],(a2s[d]  +  <r2p[$])/2},{$,#2rw+ 0.001,  ;r}, 
PlotRange—  >{0,1},  PlotStyle—  >col] 


The  considered  contributions  (0,  1,2  ray  segments  inside  the  drop)  to  the  cross 
sections  with  the  s,  p  polarizations,  as  well  as  their  sums,  are 

In[63]  :=  {Plot[{cr0s[d],(Tls[d],(T2s[d],(T0s[#]  +  <rls[d]  +  a2s[d]},{d,0,;r}, 
PlotRange—  >{0,1},  PlotStyle—  >col] , 
Plot[{a0p[d],CTlp[d],<r2p[i?],a0p[i?]  +  <Tlp{d]  +  a2p{d]},{i>,0,ff}, 
PlotRange—  >{0,1},  PlotStyle—  >col] } 


Of  course,  there  are  also  higher  contributions,  not  included  here.  The  cross  section 
is  small  for  scattering  angles  below  the  rainbow  peak;  i.e.,  the  sky  just  outside  the 
rainbow  is  darker. 

Near  the  rainbow  peak,  the  last  contribution  (2  ray  segments)  is  dominant;  the 
ratio  of  the  s  and  p  polarizations  is 

In [64]  :=  Rs2  =  Simplify [TrigExpand[Rs/. Snell/. p — >p2r] , n  >  1]; 

Rp2  =  Simplify [TrigExpand[Rp / . Snell / . p — >p 2r] , >  1]; 

P2  =  Simplify  [(1  -  Rs2)A2  *  Rs2/((1  -  Rp2)A2  *  Rp2),n  >  1] 

(2  -f-ft2)6 

Out  64  = - - - - - 5- 

729«4(— 2  +  n2)2 

In[65]  :=P2/.  Water 

Out[65]  =25.3347 
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The  rainbow  light  is  highly  linearly  polarized,  with  the  electric  field  orthogonal  to 

the  scattering  plane,  i.e.,  along  the  rainbow.  The  reason  is  that  the  incidence  angle 

/3  of  the  ray  which  is  about  to  reflect  from  the  inner  surface  of  the  drop 

In [66]  :=  j3/.Snell/.p—>p2r/. Water 

Out[66]  =  0.702055 

is  close  to  the  Brewster  angle 

In[67]  :=  J3B/.  Water 

Out[67]  =0.643621 


23.5  L  Ray  Segments  Inside  the  Drop 

Repeating  the  arguments  from  the  previous  sections,  we  obtain  the  direction  of  the 
outgoing  ray  $L  =  2(j8  —  a)  —  (L  —  1 )  (n  —  2/3 ) : 

In [68]  :=  #L  =  2*L*J3  —  2*  a  —  (L—  1)  *;r; 

In[69]  :=Ray[L_,y_,a_]  With[{«  =  «/.Snell/.p=>y, 

J3  =  J3 /.  Snell/,  p  -  >  v/.  Water} , 

Module[{/?  =  {col[[l]],Line[{{— 1  — a,y},{— Sqrtfl  -/^.y}}]}, 
q>  =  n  —  a,(p\  ,  &  =  2*  L*  fi  —  2*  a  —  (L  —  l)*;r}, 

Do[<pl  =  <j0  +  2*j3-;r; 

R  =  Join[R,  {col[[m +  2]] ,  Line[{{Cos[<p] ,  Sin[<p] } ,  {Cos[<p  1] ,  Sm[q>  1] }}] }] ; 

<p  =  <pl  ,{m,L}]; 

Join[R,  {col  [[2]], 

Line[{{Cos[<p],Sin[<jE)]},{Cos[<jE)]  +  a*Cos[#],Sin[<j(>]  +  a*Sin[$] }}]}]]] 
In[70]  :=  #[L_,p_]  =  #L/.  Snell/.  Water; 

In[71]  :=  Manipulate^ 

Manipulate[ 

Graphics  [Join  [{ Black,  Circle  []}?  Ray  [L,y,  a]] , 

PlotRange— >{{-1  -  a,  1  +a},{-l  -  a,  1  +  a}}], 
{{y,0.6},0,l},{{n,2},l,10}], 

Manipulate[ 

Graphics  [Join  [{ Black,  Circle[] } , 

With  [{5  =  (pmax  —  pmin)  /M}, 

If[5  >  0,Apply[Join,Table[Ray[L,y,a],{3’,pmin+5/2,pmax,5}]],{}]]], 
PlotRange— >{{— 1  —  a,  1+  a},  {— 1  —  a,  1  +a}}], 

{{pmin,0},0, 1},  {{pmax,  1},0, 1}, 

{{M,  10}, Tabled  {i,30}]},  {{a,  2},  1, 10}], 

Plot[Abs[Mod[i?[L,p],2  *  n,  -*]],  {p,0, 1}]}, 

{{L,3},Table[i,{i,0,4}]}] 
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Out  [71] 


Scattering  angles  for  L  =  0,  1,  2,  3,  4  as  functions  of  p  are 

In[72]  :=  Plot[Evaluate[Table[Abs[Mod[# [L, p] ,  2  *  —  n]] ,  {L, 0, 4}]] ,  {p , 0, 1 

PlotStyle— >col] 
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23  Rainbow 


Naturally,  those  with  even  L  start  from  n  at  p  =  0;  for  odd  L  they  start  from  0.  For 
L  ^  2  each  one  has  a  single  extremum: 

In[73]  :=  sol  =  Solve[D[#L/.  Snell,  p]  ==  0,p] 


0ut[73]  =  {{p^-^^ 

In[74]  :=  pL  =  p/.  sol[[2]] 

VL2  —  n2 

Out  74  =  = 

V—  1  +  T2 

In [75]  :=  #r  =  $L/.  Snell/.  p->pL 

Out  [75]  =  —  (— 1  -f-  L)  7i  —  2  ArcSin 


VL2  —n2 

V-l+L2 


VI2^ 


nA 


\f- 


+  2L  ArcSin 


Vl2- 


\J  —  1  +  L2n 


1  +L2 

These  extrema  produce  rainbows  at  the  angles  (in  degrees) 

In[76]  :=  Table[(;r  —  Abs[Mod[dr/.  Water, 2  *n}=7t]]) /Degree,  {L, 2, 4}] 

Out  [7  6]  =  {42.0781,50.8908, 138.263} 

The  angles  at  which  an  observer  sees  the  first  and  the  second  rainbow  are 

In[77]  :=  {#r2,#r3}  =  {^+(dr/.L—  >2),—  n—  (#r/.L—  >3)} 


Out  [7  7] 


2  ArcSin 


\/4  — 


>/3 


+  4  ArcSin 


7T  +  2  ArcSin 


V9 


7T 


2V2 


—  6  ArcSin 


V9 


n* 


2V2, 


n 


The  sky  is  somewhat  darker  between  the  first  rainbow  and  the  second  one,  because 
neither  rays  with  L  =  2  nor  those  with  L  =  3  come  from  these  directions. 

Until  now,  we  discussed  monochromatic  light.  Then  each  rainbow  is  just  a  bright 
arc  of  the  same  color.  In  fact,  the  refraction  index  of  water  n  depends  on  the  color 
(wavelength)  of  light  (dispersion).  It  is  larger  for  violet  light  than  for  red  one.  There¬ 
fore  the  positions  of  the  maxima  of  intensity  of  the  scattered  light  also  depend  on 
the  color. 

In[78]  :=  Plot [ { #r2/ Degree,  #r3/Degree},  {n,  1.325, 1.335}, PlotStyle— >col] 


Out  [78] 
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We  see  that  the  order  of  colors  in  the  second  rainbow  is  opposite  to  that  in  the  first 
one;  and  the  second  rainbow  is  wider. 

The  ratios  of  s  and  p  polarizations  at  the  rainbow  peaks  are 

In [79]  :=  RsO  =  Simplify  [TrigExpand[Rs/.  Snell/,  p— >pL],{n  >  1  ,L  >  1}] 

0m|791  =  7TTIF 

In[80]  :=  RpO  =  Simplify [TrigExpand[Rp/. Snell/. p — >pL] .  {«  >  1  ,L  >  1}] 

( L  —  n 2)2 
Out  80  =  - - J— 

(. L  +  n 2) 

In[81]  :=P  =  Simplify[(l  —  RsO)A2  *  RsOA(L—  1)/((1  -RpO)A2*RpOA(L-  1)), 
(n>  1,L  >  1}] 


(~l+L)2(L+n2): 

(1+L)2(L-h2)2 


(l2-„4) 


Out[8ll  =  rs 

(-1  +L2)2n4 

In[82]  :=  Table[P/.Water,{L,2,4}] 

Out[82]  =  {25.3347,9.36736,8.10737} 

Higher  rainbows  are  not  so  strongly  polarized  as  the  first  one,  because  the  incidence 
angle  for  the  reflections  inside  the  drop  is  not  so  close  to  the  Brewster  angle. 


Chapter  24 

Cyclohexane 


24.1  Statement  of  the  Problem 

Cyclohexane  molecule  contains  6  C  atoms  connected  cyclically  by  single  chemical 
bonds;  2  H  atoms  are  attached  to  each  carbon  one.  Single  bonds  of  a  C  atom  have  a 
fixed  length  and  form  fixed  angles:  if  the  C  atom  is  put  to  the  center  of  a  tetrahedron, 
then  its  single  bonds  point  to  its  vertices.  The  problem  is:  how  many  geometrical 
configurations  (conformations,  as  chemists  call  them)  of  the  cyclohexane  molecule 
exist — one,  several,  or  infinitely  many  (and  if  so,  what  is  the  dimensionality  of  this 
set). 


Tetrahedron 


What  is  the  angle  between  single  bonds?  The  unit  vectors  a[  1], . . .  a[ 4]  (blue)  are 
directed  from  the  center  of  the  tetrahedron  (red)  to  its  vertices. 

In[l]  :=a[ 0]  =  {0,0,0};  a\  1]  =  {0,0,1};  a[ 2]  =  {2*Sqrt[2],0,-l}/3; 

a[ 3]  =  {— Sqrt[2],Sqrt[6],  — 1}/3;  a[ 4]  =  {— Sqrt[2],— Sqrt[6],  — 1}/3; 

In[2]  :=  rc  =  0.025;  rs  =  0.1; 

In[3]  :=  Graphics3D[{Blue,Cylinder[{a[0],a[l]},rc],Cylinder[{a[0],a[2]},rc], 
Cylinder[{a[0] ,  a[3\ },  rc] ,  Cylinder  [{a  [0] ,  a[4] },  rc] , 

Red,  Cylinder^#  [1  ] ,  a[2] },  rc] ,  Cylinder[{a[l] ,  a[3] },  rc] , 

Cylinder  [{a  [  1  ] ,  a  [4] } ,  rc] ,  Cylinder  [{a  [2] ,  a  [3] } ,  rc] , 

Cylinder  [{a  [2] ,  a  [4] } ,  rc] ,  Cylinder  [{a  [3] ,  a  [A] } ,  rc] , 

Sphere[a[l] ,  rs] ,  Sphere^/ [2] ,  rs] ,  Sphere[a  [3] ,  rs] ,  Sphere[a  [4] ,  rs] } , 

Boxed—  >False,  ViewPoint—  >{10, 10,4}] 
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24  Cyclohexane 


Let’s  check:  the  vectors  are  indeed  unit  and  form  equal  angles  with  each  other;  hence 
all  edges  have  equal  lengths,  so  this  is  indeed  a  tetrahedron. 

In[4]  :=  MatrixFbrm[Table[a[z']  .a\j\ ,  {/,  1,4},  {j,  1,4}]] 

Out[4]/ /MatrixForm  = 


i 


i  i 


l 

3 

1 


1 

3 

1 

3 


k\ 


-4  i 

i  i 


i  / 


Cosine  of  the  angle  between  these  vectors  is 

In[5]  :=  Clear  [a,  rc,  rs] 


-1/3. 


24.2  First  Steps 


Thus  we  have  6  vectors  a[  1], . . . ,  a [6]  drawn  from  each  C  atom  to  the  next  one. 

They  form  a  closed  hexagon:  a[  1]  H - V  a[6\  =0.  Let  the  length  of  a  single  C-C 

bond  be  1 ,  then  all  the  vectors  are  unit.  Scalar  products  of  neighboring  vectors  are 
1/3  (the  sign  has  changed  because  now  one  of  the  vectors  points  in,  not  out).  In 
order  not  to  deal  with  the  overall  orientation  of  the  molecule,  let’s  consider  invariant 
quantities — cosines  of  the  angles  c[ij\  =  a[i].a[j]. 


In 
In 
In[8] 


=  c[i.,j.]/-,i>j:=c\j,i] 

=  Do[c[z‘,z]  =  1,  {*,  1,6}] 

=  Do[c[i,j  +  1]  =  1/3, {*,  1,5}];  c[l,6]  =  1/3; 
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In[9]  :=  MatrixForm[Af  =  Array [c,  {6,6}]] 

Out[9]/ /MatrixForm  = 


1 

1 

3 

c[  1,3] 

£•[1,4] 

c[l,5] 

1 

3 

1 

3 

1 

1 

3 

c[2,4] 

c[2,5] 

£•[2,6] 

c[l,3] 

1 

3 

1 

1 

3 

c[3,5 

c[3,6] 

c[l,4] 

c[2,4] 

1 

3 

1 

1 

3 

£’[4,6] 

c[l,5] 

c[2,5] 

c[3,5] 

1 

3 

1 

1 

3 

1 

3 

c[  2,6] 

c[3,6] 

c[4,6] 

1 

3 

1 

Linear  Equations 


Multiplying  the  vector  equality  a[  1]  H - V  a[6\  =  0  by  each  vector  a [/] ,  we  get  6 

linear  equations  for  c[i,  j] . 

In[10]  :=  Eq  =  Table[Sum[c[i,  j], {7, 1,6}]  ==  0, {*,  1,6}] 

5  . . 5 


Out  [10] 


-  +c[l,3]  +  c[l,4]  +c[l,5 


0,  —  +  c[2, 4]  -f-  c[2, 5  4-  c[2, 6] 


0, 


—  +  c[l ,  3]  -f-  c[3, 5_  +  c[3, 6] 


O7  ^  +  c[2,4]  +  c[4,6] - 0, 


—  +  c[l ,  5_  +  c[2, 5  +  c[3, 5 - 0,  —  +  c[2, 6]  +  c[3, 6]  +  c[4, 6] - 0 

Let’s  take  v  =  c[l,3],  y  =  c[3,5],  z  =  c[5, 1]  as  independent  variables  and  express  the 
remaining  ones  via  them. 

In[ll]  :=c[l,3]  =.v;  c[3,5]  =y ;  c[l,5]  =z; 

In[12]  :=s  =  Solve[Eq,{c[l,4],c[2,4],c[2,5],c[2,6],c[3,6],c[4,6]}][[l]] 

Out[12]  jc[l,4]  ^  — z,c[2,4]  — ^z,c[ 2,5]  ^  — y  —  z,c[2,6]  — ^y, 


c[3,6]  ---v-y,c[4,6] 

In[13]  :=c[l,4]  =c[l,4]/.s;  c[2,4]  =  c[2,4]/.s;  c[2,5]  =c[2,5]/.j; 

c[2,6]  =c[2,6]/.s;  c[3,6]  =  c[3,6]/.s;  c[4,6]  =  c[4,6]/.s; 
In[14]  :=  Clearly] 

In [15]  :=  MatrixForm  [A/  =  M] 

Out[15]/ /MatrixForm  = 

1  \ 

1 


v 


1 

3 

V 

\-x-z 

z 

1 

3 


1 

3 

Z 

§ -y-z 

y 


X 

1 

3 

1 

1 

3 

J 


x-y 


-3 -v-z 

z 

1 

3 

1 

1 

3 

V 


-f-y-z 

J 

1 

3 

1 

1 

3 


1 
3 

J 

\-*-y 

X 

1 

3 

1 


\ 


J 
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24.3  Equations 


Generating  Combinations 


Now  let’s  recall  that  our  vectors  a[  1  a[ 6]  live  in  3-dimensional  space.  Any 

4  of  them  are  linearly  dependent.  First  we  have  to  find  a  way  to  generate  all  4- 
element  lists  made  of  the  numbers  from  1  to  6  in  the  increasing  order.  We  shall 
accumulate  them  in  the  list  L.  The  main  work  is  done  by  the  recursive  function  Gen. 
Its  parameters:  / — part  of  the  list  which  has  been  already  constructed;  n — how  many 
elements  are  to  be  added;  a  and  b — boundaries  of  the  interval  from  which  numbers 
can  be  taken.  If  everything  has  been  done  (n  =  0),  the  constructed  list  /  is  appended 
to  the  list  of  results  L.  Otherwise,  we  add  each  number  i  from  the  allowed  interval 
to  /  and  call  Gen  recursively  to  add  n—  1  numbers.  The  upper  limit  of  the  loop  is 
determined  by  the  requirement  to  have  at  least  n  —  1  numbers  in  the  interval  from 
i  +  1  to  b. 


In[16]  :=£  =  {}; 

In[17]  :=  Gen[i  ^n^a^b-]  :=  If[n  <  0 }L  =  Append[L,/]? 

Do[Gen[Append[/,i],«-  l,i+  \,b\,{i,a,b-n+ 1}]] 

In[18]  :=  Gen[{},4, 1,6];  L 

Out[18]  =  {{1,2, 3, 4},  {1,2, 3, 5},  {1,2, 3,6},  {1,2, 4, 5},  {1,2,4, 6},  {1,2,5 
{1,3, 4, 5}, {1,3, 4, 6}, {1,3, 5, 6}, {1,4, 5, 6}, {2, 3, 4, 5}, {2, 3, 4, 6}, 
{2, 3, 5, 6}, {2, 4, 5, 6}, {3, 4, 5, 6}} 

It  works.  There  are  15  4-combinations  of  6  numbers. 


Nonlinear  Equations 


For  each  set  of  4  vectors,  the  determinant  of  the  corresponding  4x4  submatrix  of 
the  matrix  M  (it  is  the  square  of  the  4-dimensional  volume  spanned  by  these  vectors) 
should  be  equal  to  0. 

In[19]  :=  Eq  =  Table[Det[M[[Z, /]]],{/, L}] 

rin1  f  5  34x  23x2  34 z  20xz  2 x2z  23 z2  2 xz2  2  2 

Out  19  =  < - 1 - 1 - b  x2z  , 

\  3  9  9  9  9  3  9  3 

_  2x  16v2  40y  lOxy  10v2y  23y2  2 xy2  ?  ?  40 z 

9999  3  9  3  ^9 

lOxz  1 0x2z  32yz  lOxyz  .  2  23z2  2xz2  2  2 

+  — ; - +  — F—  +  2x2yz - —  +  — —  -hx2z2, 


9 
34x 


3 

23x2 


9  3  9 

34y  20xy  2  x2y  23  y2 


3  9  9  9  9  3  9 

1  50v  16v2  50y  98xy  10v2y  16y2 

3  — 9 — ^ — 9 — ^ — 9 — ^ — 9 — I - 3 - ^ — 9 — 


3 

2xy2  2  2 
+  x  y  , 


3 

lOxy2  2  2  ,  20z 
— - b  +  — — b 


118 xz  I0x2z  ,  118 yz  ,  40xyz  ,  0  2  ,  10y2z  ,  0  2  t  A  2l 
- 1 1 1 b  2xyz  H b  2xyLz  +  4  zr+ 


9 


3 


9 


3 


3 
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20xz/ 


-2- 


3 

40x 


2  2  ,  20 yz2  0  2,2  2 

4-x  z  4 - - - \-2xyz  +y  z 


9 

32xz, 


9 

5  34y 

3 


+ 


23  x2 

~9~ 

lOyz 


+ 


3 
2  y 


lOxy  2x2y  16y 


2  _L  10xy2  _L_  2  2 

H - - - bx  y 


40  z 


3 

71  o„„2 


9 

23j2 


+ 


9  9  3 

lOxyz  10 y2z  2  23r  2  2 

—  +  —  +  2xyz-  —  +  —  +yz, 

34 z  20yz  2y2z  23z2  2yz2  2  2 


-2 


9 

40x 

~~9 
32  xz 


9  9  9 

23 x2  2 y  lOxv 

4~  — 4- 


+ 


+ 


+r? 


4- 


9 

lOyz 


2  x2y  1 6  v 

+  -/-  + 


9  '  3 

2  ,  10xy2  ,  2  2 
H - - - h  xy 


40  z 


9 

7  20x  ? 

3  +  — +4"  + 


4- 


9  9  3  9  3 

lOxyz  10y2z  2  23^2 

4 - 7 - b  2x/z  - 


9  3  3 

50y  118xy  20  x2y 


9  3 

2  ia..,2 


2^  ,  2  2 
+  — Z  : 


+ 


+ 


+ 


16/  lOxy 


4- 


2  2  50z 

+at y +— ■ + 


118xz  20x2z  98yz 

+  ——  +  —  + 


40xyz  ,  o  2  ,  l°y2Z  ,  o  2  , 

— - b  2x  yz  4 - - - b  2xy  z  4- 


9 
16z2 


4- 


9 

10xz2  2  2  lOyz2  ~  2  22 

+  xzT  +  — +  2xyz2  +  yV , 

_  40x  23x2  40y  32xy  23y2  2z  10xz  _ 

-2-— - - - — - — - +  +  +  —  +  _9“  + 

71  in,J 


2x2z  1  Oyz 


9 

lOxyz 


3 

5 

_  3 
-2 


3 

34x 

~~9 

_34y 

9 

40x 

~~9 

1  Oxyz 


4- 


9 

2y2z 


4- 


3 

23x2 

9~ 

23  / 

9 

23x2 

~9~ 

2  y2z 


9 

16z2  10xz 
4-  — —  + 


9 
34z 

9 

34z 

9 

40y 


3 

20xz  2x2z 


+  x2z2  +  +  2xyz2  +  y2z2 , 


9 

20yz 


+ 


3 

2y2z 


3 

23z2 

9 

23z2 


+ 


+ 


2xz2 

^T 

2yz2 


9 

16z2  10xz 
+  — +  — 


9  '  3  9  '  3 

32xy  23y2  (  2z  (  10xz 

~9  9  *"  ~9  +  9 

2  lOyz2 


1  2  2 
4-x  z  , 


,  2  2 
+  J  z  , 


2x2z  lOyz 
+  — ^  +  — r-  + 


+  /z2  4- 


7 

3  + 


3 

5  Ox  16x2  20y  118xy  10x2y 

+  — — +  —  +  — r^4~ 


4-2xyz2+y2z2. 
20xy 


50z 


9 

98xz 


9  3  9  3 

10x2z  118yz  (  40xyz 


2  ,  ^UAy  ,  2  2,  , 

+  4y  H - ^ - bx  y  +  — 4- 


9  3  9 

10xz2  2  2  1  Oyz2 

+  X2Z  + 


4- 


9 

16z2 


o  2  ,  2°y2Z  ,  o  2  ,  IbZ 

+  2x  yz  H - - - h  2x_y  z  H — ~ — h 


3 

2x  16x2 

-24 - 1 - 

9  9 

lOxz  10x2z 


3 
40y 


4-  2xjz2  4-  y2z2  . 


IOxj  10x2j 


23v2  2xy2  9  9 
+  — r-+xV 


40z 


5 

3 


34x 


3 

23x2 


32jz  lOxjz  2 
4 - 1 - 1-  2xLyz 


9 

34 y 


3 

20xy 


+ 


2x2^ 


9  3 

23z2  2xz' 

9~  + 

23/ 


+ 


3 

,2 


1  2  2 
+  x  z  , 


2xy"  9  9 
+  —7-  +0 


These  15  polynomials  of  3  variables  must  be  equal  to  0. 

In [20]  :=  Clear[L] 
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Grobner  Basis 

Let’s  find  a  simpler  set  of  polynomials  having  the  same  solution  set — the  Grobner 
basis. 

In[21]  :=  GB  =  GroebnerBasis[Eq,{z,j,x}] 

Out  [21]  =  {  — 15  —  34x  —  23x2  —  34 y  —  20xy  +  6x2y  —  23  y2  +  6xy2  +  9  v2y2, 

—  1 02  -  400*  -  284*2  +  1 8x4  -  69y  -  2 1 2xy  +  1 8*2y  +  108  *3y  +  27x4y- 

69  z  —  212  xz  +  18  x2z  +  108x3z  +  27x4z, 

18  +  54*  +  1 8x2  —  6x3  +  2  ly  +  4  Ixy  —  9  x2y  —  9  x3y  +  2  iz  +  4 lxz— 

9x2z  -  9x3z  +  20yz, 

—  15  —  34*  —  23x2  —  34  z  —  20xz  +  6x2z  —  23  z2  +  6xz2  +  9  x2z2  } 

Do  they  factorize? 

In[22]  :=  GB  =  Map[Factor,GB] 

Out  [22]  =  {  —  15  —  34*  —  23x2  —  34y  —  20xy  +  6x2y  —  23y2  +  6xy2  +  9  x2y2 , 

(3  +  x)  ( 1  +  3x)  (—34  —  20*  +  6x2  —  23y  +  6xy  +  9 x2y  —  23z  +  6*z  +  9x2z)  , 

18  +  54*  +  1 8x2  —  6x3  +  21y  +  41xy  —  9  x2y  —  9x3y  +  21z  +  41  xz  —  9x2z— 

9x3z  +  20  yz, 

—  15  —  34x  —  23x2  —  34  z  —  20xz  +  6x2z  —  23z2  +  6xz2  +  9  x2z2  } 

In [23]  :=  pi  =GB[[1]];  p2  =  GB[[2]]/(3+*)/(l  +  3*x); 
p3  =  GB[[3]];  p4  =  GB[[4]]; 


24.4  Projection  onto  the  x,  y  Plane 
Allowed  Region 

First  let’s  find  the  projection  of  the  solution  set  onto  the  x,  y  plane.  What  part  of  this 
plane  are  we  interested  in?  First,  x  and  y  should  lie  between  —  1  and  1 ;  second, 

In[24]  :=c[3,6] 

r  n  5 

Out  [24]  =  -- -x-y 

should  also  lie  between  —  1  and  1 . 

In[25]  :=  RegionPlot[— 1  <  x  <  1&&  —  1  <  y  <  1  &&  —  1  <  c[3,6]  < 
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That  is,  the  allowed  region  is  the  triangle  with  the  vertices  (-1,-1),  (—1,1/3),  and 

(1/3, -1). 


Solutions  with  x  =  —1/3 


The  second  equation  is  satisfied  at  v  =  —  1  /  3.  What  about  the  other  ones? 


In [26]  :=  Eq  =  {pl»p3,p4}/  .x—  >  —  1/3 

Out[26]  =  {-|-^Z-24 y2 


20  20 y  20 z  _  56  80 z 

—  +  +  —  +  20  yz,-  —  -  — 


In[27]  :=  GB  =  GroebnerBasis[Eq,  {z,y}\ 

Out  [27]  =  {7  +  30j  +  27y2, 1  +  3y  +  3z  +  9yz,  7  +  30z  +  27z2} 

In [28]  :=  GB  =  Map[Factor,GB] 

Out[28]  =  { ( 1  +  3y)  (7  +  9y) ,  ( 1  +  3y)  ( 1  +  3z) ,  ( 1  +  3z)  (7  +  9z) } 

So,  we  have  found  the  solutions  x  =  y  =  z  =  —1/3 ;x=y  =  — 1/3,  z 


=  —7/9;  and 


x  =  z  =  -l/3,y=  -7/9. 

In[29]  :=  Eq/.{y->  -  1/3, z->  -  1/3} 

Out  [29]  =  {0,0,0} 

In[30]  :=  Eq/.  {y->  -  1/3, z->  ~  7/9} 

Out  [30]  =  {0,0,0} 
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In[31]  :=  Eq/.  {y->  -  7/9 ,z->  -  1/3} 

Out  [31]  =  {0,0,0} 

It  is  clear  from  the  symmetry  argument  that  y  =  z  =  — 1/3,  x  =  —7/9  is  also  a 
solution. 

In[32]  :=  {pl,p2,p3,p4}/.  {x->  -  7/9, y->  -  1/3 ,z->  - 1/3} 

Out[32]  =  (0,0, 0,0} 


Other  Solutions 

The  first  equation  contains  only  v  and  y. 

In[33]  :=  pi 

Out  [3  3]  =  — 15  —  34x  —  23x2  —  34y  —  20  xy  +  6x2y  —  23  y2  +  6xy2  +  9  x2y2 

In[34]  :=  PI  =  ContourPlot[pl  ==  0, 0}] 

o.o 


-0.2 


-0.4 

Out  [34]  = 

-0.6 


-0.8 


-1.0 

-1.0  -0.8  -0.6  -0.4  -0.2  0.0 

This  equation  is  quadratic  in  y. 

In[35]  :=  Do [<?[/]  =  Coefficient [pfiv, /],{/, 0,2}] 

Does  c[ 2]  vanish  somewhere? 

In[36]  :=  .v  =  Solve[c[2]  ==  0,.v] 

Out[36]  =  1  ^-1-2v/6)|,|xh-  1  (-1+2^11 
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In[37]  :=N[x/.s\ 

Out[37]  =  {-1.96633, 1.29966} 

In  our  region  c[ 2]  >  0.  The  discriminant: 

In [3 8]  :—d  —  Factor[c[l] A2  —  4  *  c[0]  *  c[2]\ 
Out[38]  =  32(— 1  -f-x)(7  +  9x)  (l  +  6*  + 3v2) 
In[39]  :=  s  =  Solved  ==  0,x] 

Out[39]  =  ||x  —y  —  - 1 ,  {x  —y  1},  —>  -  ^—3 

{x^l(-3  +  V6)}} 


In[40]  :=N[x/.s\ 

Out  [40]  =  {-0.777778,1,-1.8165,-0.183503} 
The  discriminant  is  positive  between  v  =  —  7/9  and 

In[41]  :=xmax  =  x/.s[[4]] 

Out  [41]  =  1  (-3  +  v^) 


In[42]  :=  Clearly] 

Two  values  of  y  (with  pm  =  ±1)  correspond  to  each  v  from  this  interval. 

In[43]  :=  yl  =  (-c[l]  +pm*Sqrt[<l])/(2*c[2]) 

Out [43]  =  (34  +  20*  -  6x2  +  4\/2pm/ (- 1  +  *) (7  +  9x)  (1  +  6x  +  3 x2)  J  / 

(2(-23  +  6x  +  9x2)) 

In [44]  :=  Clear[d] 

Do  the  points  we  found  earlier  lie  on  this  curve? 

In[45]  :=  {pi/.  {x->  - 1/3, y->  -  1/3}, pi/.  {x->  - 1/3, y->  -7/9}, 
pi/.  {x->  -  7/9, y—>  -  1/3}} 

Out[45]  =  {0,0,0} 

Yes,  they  do.  Let’s  denote  these  points  A,  B,  C. 


In[46]  :=  pA  =  {—1/3,— 1/3};  pB  =  {-1/3, -7/9};  pC  =  {-7/9, -1/3}; 


So,  all  solutions  we  are  interested  in  project  onto  this  curve  in  the  x,  y  plane. 

We  shall  need  a  few  extra  points  on  this  curve.  Let’s  find  the  second  intersection 
with  the  diagonal  v  =  y  (the  first  one  is  the  point  A). 

In [47]  :=  s  =  Solve[(pl/. y— >x)  ==  0,x] 

Out [47]  =  |  {x  — >  —  3},  — >  —  - 1 ,  >  -  ^3  —  2a/6^  | , 

1  (3  +  2v/6)}} 

In[48]  :=iV[x/.,s] 

Out[48]  =  {-3., -0.333333, -0.632993, 2.63299} 

In[49]  :=  xO  =  x/.^[[3]] 

Out  [49]  =  1  (3  -  2V6) 

Let’s  call  this  point  D. 

In[50]  :=  pD  =  {x0,x0}; 

In[51]  :=  Clearly,  xO] 
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Finally,  let’s  introduce  some  additional  point  between  A  and  B  (rather  arbitrarily; 

e.g.,  let  it  have  x  =  —  1  /4)  and  call  it  E.  Let  its  mirror  image  be  the  point  F. 

In[52]:=x0  =  — 1/4; 

In[53]  :=  yO  =  Simplify|y  1/.  {x— >x0,  pm— >  1 }] 

Out[53]  =  ^L(-229-  10V38) 

In[54]  :=  pE  =  {xO,yO};  pF  =  {yO.xO}; 

In[55]  :=  Clear[xO,yO] 

This  is  shown  in  the  plot. 

In[56]  :=  P2  =  Graphics [{PointSize [Large] , 

Red,  Point[pA] ,  Text[Style[A,  Large] ,  pA,  { - 1 ,  - 1 }] , 

Point[pB] ,  Text[Style[B,  Large] ,  pB,  {0, 1}], 

Point[pC] ,  Text[Style[C,  Large] ,  pC,  { 1 , 0}] , 

DarkerfGreen] ,  Point  [pD] ,  Text[Style[D,  Large] ,  pD,  {1,1}], 

Point[pE] ,  Text[Style  [E,  Large] ,  pE,  {  - 1 , 1 }] , 

Point[pF] ,  Text[Style[F,  Large] ,  pF,  { 1 ,  - 1 }] }] ; 

In[57]  :=  Show[Pl,P2] 

0.0 


-0.2 


-0.4 

Out  [57]  = 

-0.6 


-0.8 


-1.0 

-1.0  -0.8  -0.6  -0.4  -0.2  0.0 

What’s  the  reason  for  introducing  the  points  D,  E,  F?  Now  it  is  easy  to  write 
down  our  curve  parametrically.  For  t  E  [0,1]  let  the  point  move  from  F  to  A,  the 
motion  along  x  being  uniform. 

In[58]  :=pFA[*_]  :=  With[{xt=  (1  -t)  *pF[[l]]  +J*pA[[l]]}, 

{xt,yl/.{x— >xt,pm— >  —  1}}] 

In[59]  :=  PI  =  ParametricPlot[pFA[/], {/,0, 1  }.PlotRange— >{{—!. ()}. {—1.0}}]; 
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In[60]  :=  Show[Pl,P2] 


Out  [60] 


For  t  G  [1,2]  let  the  point  move  from  A  to  E;  this  segment  is  mirror- symmetric  to 
the  previous  one. 

In[61]  :=  pAE[r_]  :=  With[{yO  =  (2  — /)  *pA[[2]]  +  (/  —  l)*pE[[2]]}, 
{yl/.{x->y0,pm->-  l},y0}] 

In[62]  :=P1  =  ParametricPlot[p  AE[f  ] , {r,  1,2}, PlotRange— >{{— 1,0},{— 1,0}}]; 
In[63]  :=  Show  [PI,  P2] 


l  I  I  i  I  I  I  I  I  1  I  I  I  I  I  I  I  I  I  L 


-1.0 


-0.8 


-0.6 


-0.4 


-0.2 


F 

O 

Out[63]  — 


-0.6 


-0.8 


-1.0 
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For  t  G  [2,3]  the  point  moves  from  E  to  D,  the  motion  along  v  being  uniform. 

In[64]  :=pED[f_]  :=  With[{xO=  (3-f)*pE[[l]]  +  (»-2)*pD[[l]]}, 

{x0,yl /.  {.r— >x0,pm— >  1 }}] 

In[65]  :=P1  =  ParametricPlot[pED[f],  {/,2,3},PlotRange— >{{— 1 ,0},  {— 1.0}}]; 
In[66]  :=  Show[Pl,P2] 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 

-1.0  -0.8  -0.6  -0.4  -0.2 

F 

O 

Out  [66]  = 

-0.6 


-1.0 


-0.2 

A 

-0.4 


Finally,  for  t  E  [3,4]  the  point  moves  from  D  to  F;  this  segment  is  mirror- symmetric 
to  the  previous  one. 

In[67]  :=  pDF[f .]  :=  With[{yO  =  (4  -  /)  * pD[[2]]  +  (/  -  3)  * pF[[2]]}, 
{yl/.{x->y0,pm->l},y0}] 

In[68]  :=P1  =  ParametricPlot[pDF[/].  {?,3.4}.PlotRange— >{{— 1.0}.  {—1,0}}]: 
In[69]  :=  Show[Pl,P2] 


-0.8 


-1.0 
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Later  we  shall  join  these  segments  and  construct  a  parametric  curve  in  the  3- 
dimensional  space  x,  y,  z. 


24.5  Complete  Analysis  of  the  Solutions 


How  to  find  the  value  (or  values)  of  z  corresponding  to  some  point  x,  y  on  our  curve? 
It  is  easiest  to  use  the  second  equation — it  is  linear  in  z. 

In[70]  :=  p2 

Out  [70]  =  —  34  —  20x  +  6x 2  —  23 y  +  6xy  +  9  x2y  —  23  z  +  6xz  +  9  x2z 

In[71]  :=Do[c[i]  =  Coefficient[p2,z,i],{i,0,  1 }] 

Does  c[  1]  vanish  somewhere  in  our  region? 

In[72]  :=s  =  Solve[c[l]  ==  0,x] 

Out [7 2]  =  3  (—  1  —  |  ^  ^  (—  1  +  2a/6^  1 1 

In[73]  :=N[x/.s\ 

Out  [7  3]  =  {-1.96633, 1.29966} 


No,  it  does  not. 

In [74]  :=  Clearly] 

So  there  is  a  single  solution: 
In[75]  :=  zl  =  —  c[0]/c[l] 

Ont[15)  =  3-^°X~6x2  +  23y 


6xy  —  9  x2y 


-23  +  6x  +  9x2 

And  what  about  the  third  and  fourth  equations? 

In[76]  :=  p3  =  Numerator[Together[p3/.z— >zl]] 

Out [7 6]  =  —20  (— 15  —  34x  —  23x2  —  34 y  —  20xy  +  6x2y  —  23y2  +  6xy2  +  9 x2y2) 

In[77]  :=  p4  =  Numerator[Together[p4/.z— >zl]] 

Out  [77]  =  — 15  —  34x  —  23x2  —  34 y  —  20xy  +  6x2y  —  23  y2  +  6xy2  +  9  x2y2 

In[78]  :=Cancel[p3/pl] 

Out  [78]  =  -20 

In[79]  :=  Cancel[p4/pl] 

Out  [7  9]  =  1 

They  are  satisfied  automatically.  What  z  corresponds  to  x  =  y  =  — 1/3? 

In[80]  :=  zl /.  {x->-\  /3,y->  -  1  /3} 

Out[80]  =  -  - 


So,  one  of  the  solutions  found  earlier,  namely  x  =  y  =  z  =  —1/3,  does  not  belong  to 
our  one-dimensional  family  of  solutions.  To  summarize:  we  have  found  one  isolated 
solution  plus  a  one-dimensional  family  of  solutions.  In  the  parametric  form: 

In[81]  :=xyz[*_]  :=  With[{xy  =  Which [/  <  l,pFA[f],f  <  2,pAE[/], 
t  <  3, pED[/] , True, pDF[/]] } , 
{xy[[l]],xy[[2]],zl/.{Jc->xy[[l]],y->xy[[2]]}}] 

In[82]  :=P1  =  ParametricPIot3D[xyz[f],  {/,0,4}, 

Plo^ange— >{{— 1,0},  {—1,0}},  \TewPoint—  >{10, 11,12}]; 

In[83]  :=p0  =  {— 1/3,  — 1/3,— 1  /3}; 
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In[84]  :=  P2  =  Graphics3D[{Darker[Green],PointSize[Large],Point[pO]}]; 
In[85]  :=  Show[Pl,P2] 


You  can  rotate  this  plot  with  your  mouse  to  understand  it  better. 


24.6  Shape  of  the  Molecule 


What  does  the  cyclohexane  molecule  look  like?  Let’s  direct  the  x-axis  along  a[l]: 

In[86]:=  all]  =  {1,0,0} 

Out[86]  =  {1,0,0} 

Let  a[ 2]  lie  in  the  x,  y  plane: 

In[87]  :=  a[ 2]  =  {l/3,2*Sqrt[2]/3,0} 

Out[87]  =  {  ,0 


That  is,  the  unit  vector  along  y  is  a  combination  of  a[l]  and  a[ 2] : 

In[88]  :=  (3*a[2]  —  a[l])/(2*Sqrt[2]) 

Out[88]  =  {0,1,0} 

The  projections  of  a [3]  onto  v  and  y  are  c[\ ,  3]  =  v  and 

In[89]  :=  (3*c[2,3]  -c[l,3])/(2*Sqrt[2]) 


Out[89] 


\—x 

2V2 
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The  projection  of  a  [3]  onto  the  z  axis  can  be  found  from  normalization: 

In[90]  :=  a[ 3]  =  {x,  (1  —  x)/(2  *  Sqrt[2]), 

pm  *  Sqrt[(  1  —  x)  *  (7  +  9  *  x)]  /  (2  *  Sqrt[2] ) } 


Out[90]  =  <  x, 


1—x  pm  \/ ( 1  —  x)  (7  +  9x) 


2y/2  ’  2\/2 

where  pm  =  ±1.  Two  molecule  shapes  correspond  to  a  single  set  of  values  of  x,  y,  z\ 
they  differ  by  the  mirror  reflection  of  the  z  coordinates.  We  shall  discuss  this  matter 
in  a  moment. 

In[91]  :=  Table  [Expand^  [/].« [3]]/.  pm  2— >  1 ,  {/,  1,3}] 

Out[91]  =  lx,  1 


That  is,  the  unit  vector  along  the  z  axis  is  a  combination  of  a  [1],  a  [2],  a  [3] : 

In [92]  :=  Simplify[2 * Sqrt[2]/Sqrt[(l  — x)  *  (7  +  9*x)]* 

(4 3]  - 3/8 *  (1  -x)  * a[2]  +  (1-9 *x)/8 *a[l])] 

Out[92]  =  {0,0,  pm} 

The  rest  is  easy. 

In[93]  :=  Do  [Print  [a  [j]  =  Simplify  [{c[  1 ,  /] ,  (3  *  c[2,  /]  —  c*[  1,  /]  )/(2  *  Sqrt[2] ) , 
2  *  Sqrt[2]  *  pm/Sqrt[(  1  —  x)  *  (7  +  9  *  x)\ * 

(c[3, /]  -  3/8  *  (1  -  x)  *  c[2,  i]  +  (1  -  9  *x)/8  *  c[l ,  /])}]], 


{*,4,6}] 


3-x-z, 


§ +  x  +  4 z  pm  ( 1  +  9x2  -  4z  +  2x(7  +  6z)) 


2V2  ’  2  a/2  a/7  +  2x  —  9x2 

5  +  3j  +  4z  pm(-5- 11j-4z+x(5  +  3j+12z))^ 

Z’  2V2  ’  2  a/2  a/7  +  2x  —  9x2  J 

1  —  l+9y  pm(— 13  —  lly  +  x(— 11 +3y))  1 

3’  6  a/2  ’  2  a/2  a/7  +  2x  -  9x2  J 

Let’s  write  a  function  which  constructs  the  molecule  for  a  given  values  of  x,  y,  z 

and  of  the  sign  pm. 


In[94]  :=  rc  =  0.1;  rs  =  0.25; 

In[95]  :=  Molecule[xyz s _]  :=  Module[{r  =  {0,0,0}, r2,/  =  {Blue}, 
s  =  (x— >xyz[[l]],y— >xyz[[2]],z— >xyz[[3]],pm— >s}}, 

Do[r2  =  r  +  (a[i]/.S);  l  =  Append[/,Cylinder[{r,r2},rc]];  r  =  r2,{i‘,  1,6}]; 
r  =  {0,0,0};  l  =  Append^, Red]; 

Do[r2  =  r+  (a[i]/.S);  I  =  Append[/, Sphere[r, rs]] ;  r  =  r2, {i,  1,6}]; 
Graphics3D[/]] 

This  is  the  isolated  conformation  of  the  cyclohexane  molecule  with  x  =  y  =  z  = 
— 1/3.  Use  your  mouse  to  understand  it  better. 

In[96]  :=  Show[Molecule[pO,  1  ] ,  ViewPoint— >  { 1 5 ,  —  5 , 5 } ,  Boxed—  > False] 
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Out[96]  - 


And  this  is  the  one-parameter  family  of  conformations.  To  ensure  smooth  de¬ 
pendence  on  t,  it  is  necessary  to  flip  the  sign  pm  when  passing  through  the  point  C 
(where  the  expression  under  the  radical  sign  vanishes).  This  happens  at 

In[97]  :=  tO  =  (621  -  8  *  Sqrt[6])/159 

Out [97]  =  T-  (621  - 8V6) 

So,  the  molecule  returns  to  its  initial  shape  after  we  traverse  the  loop  in  the  x,  y, 
z  space  twice.  You  can  see  this  conformation  family  especially  clearly  if  you  start 
animation. 

In[98]  :=  Manipulate[Show[ 

Moleculeflfh  >  4,xyz[f  —  4l,xyzM],If [t  >  tO &&t  <  tO+4,— l,+ll], 
PlotRange— >{{— 0.7, 1.7},{— 0.5, 1.9},{— 1-7, 1.7}}, 

ViewPoint—  >{  10, — 10, 4},  Boxed—  >False], 

0,0,8}] 


Out[98]  = 


Chapter  25 

Problems  for  Students 


1.  Write  a  procedure  which  returns  the  hydrogen  wave  function  (in  spherical  coor¬ 
dinates,  i.  e.,  an  expression  containing  r,  6 ,  </))  for  given  quantum  numbers  n ,  /,  m. 
Write  a  procedure  to  calculate  the  rate  of  the  electric  dipole  transition  [22]  from  the 
state  n,  /,  m  to  the  state  nf,  /',  m'. 


2.  Calculate  Poisson  brackets  of  the  Hamiltonian,  the  angular  momentum  com¬ 
ponents,  and  the  Runge-Lenz  vector  components  [19]  for  a  particle  in  the 
Coulomb  field  U  =  —a/r.  Calculate  commutators  of  the  same  quantities  in  quantum 
mechanics  [18]. 


3.  The  hypergeometric  function  [23,  24,  27]  is  defined  as  the  sum  of  the  series 


oo 

F(a,b,c,x)  =  £ 

n— 0 


(a)n(6)n*" 

(c)„  n\ 


1 


where  (x)n  =  x(x  +  1)  •  •  •  (x  +  n  —  1)  is  the  Pochhammer  symbol.  In  many  cases  it 
can  be  expressed  via  simpler  functions.  Write  a  list  of  substitutions  for  simplifying 
hypergeometric  functions.  It  is  sufficient  to  consider  only  simplifications  valid  for 
an  arbitrary  x  (not  for  specific  values)  where  results  are  expressed  via  elementary 
functions.  More  general  substitutions  should  be  near  the  beginning  of  the  list,  then 
their  particular  cases  can  be  eliminated. 


4.  Consider  indefinite  integrals  of  the  form 


J A(x)  \ogB(x)dx, 


where  A(x)  and  B(x)  are  rational  functions  of  x.  Mathematica  can  calculate  such 
integrals,  but  often  produces  results  in  which  some  terms  have  imaginary  parts  in 
the  region  of  x  we  are  interested  in.  It  is  not  easy  to  trace  their  cancellations.  We’ll 
suppose  that  A(x)  and  B(x)  contain  no  parameters  (except  x),  only  numbers.  We’ll 
also  suppose  that  Mathematica  is  able  to  find  all  roots  of  the  denominator  of  A(x), 
as  well  as  of  the  numerator  and  the  denominator  of  B(x),  and  all  these  roots  are  real. 
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We  are  interested  in  a  neighborhood  of  some  point  x$\  we  want  to  get  a  result  all 
terms  of  which  are  real  near  this  point  (if  this  is  possible,  of  course).  Implement  the 
following  obvious  approach: 

•  Expand  A  (x)  into  partial  fractions  with  respect  to  v. 

•  Replace  1  ogB(x)  by  a  combination  of  terms  log(v  —  at)  and  log(a;-  —x)  (plus  a 
constant)  in  such  a  way  that  they  are  all  real  near  xq. 

•  Multiply. 

•  Take  integrals  of  xn  log(v  —  a)  (n  >  0),  log(v  —  a) /{x  —  b)n  (n  >  2)  by  parts  to 
eliminate  the  logarithm.  Don’t  use  the  Mathematica  integrator — it  can  produce 
log(v  —  a)  where  log  {a  —  x )  is  needed. 

•  We  are  left  with  the  most  difficult  terms  of  the  forms  log(v  —  a) fix  —  b)  and 
log  (a  —  x)/(x  —  b).  By  linear  substitutions  they  reduce  to  3  cases: 

-U2(-y), 

log(y)  log(y  —  1)  +Li2(l  -y), 

-Li  2(y), 

where  y  is  positive  near  x  =  xq  (the  third  formula  is  the  definition  of  Li2  (y ) ;  the 
first  one  follows  from  it  using  the  substitution  y  — »  —  y;  the  second  one — using 
integration  by  parts). 

The  result  must  be  real  (log(v)  is  real  at  v  >  0;  \a2(x) — at  v  <  1).  If  this  is  impossi¬ 
ble,  print  an  error  message. 

5.  Implement  the  algebra  of  Boolean  expressions.  They  consist  of  the  constants  true 
and  false,  variables,  the  function  not  (one  argument),  and  the  functions  and,  or  (an 
arbitrary  number  of  arguments).  The  last  two  functions  are  commutative  and  asso¬ 
ciative.  Take  into  account  simplifications  when  one  of  the  arguments  is  true  or  false; 
when  two  arguments  coincide  or  equal  to  a  and  not[a].  Expressions  should  be  re¬ 
duced  to  the  disjunctive  normal  form:  “or”  at  the  top  level;  its  arguments  can  be 
“and”;  their  arguments  can  be  “not”  or  variables. 

6.  Implement  the  algebra  of  quaternions. 

7.  Implement  Dirac  y-matrix  expressions,  including  trace  calculations  (in  4  dimen¬ 
sions  [22]  or  in  the  general  case  of  dimensional  regularization,  see,  e.g.,  [24]).  Pay 
no  attention  to  efficiency. 

8.  Implement  calculation  of  color  factors  of  Feynman  diagrams  for  the  color  group 
SU (Nc)  using  the  Cvitanovic  algorithm  [27]  (see  also  [24]). 

9.  Write  a  procedure  to  calculate  two-loop  massless  propagator  diagrams  using  in¬ 
tegration  by  parts  (see,  e.g.,  [24]).  Results  should  be  linear  combinations  of  the  two 
basis  integrals. 


Iog0+1) 


y 


log  (y  l ) 


y 


d y  = 


d y 


log(l  -y) 


y 


d y 
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10.  Hypergeometric  functions  whose  argument  is  1  and  whose  parameters  contain 
a  small  parameters  £  and  tend  to  integers  at  £  — >  0  can  be  expanded  in  series  in  £. 
The  algorithm  is  described,  e.g.,  in  [24];  implement  it. 

11.  Any  polynomial  over  the  field  of  complex  numbers  can  be  factorized  into  linear 
factors: 

p(x)  =  Y\{x-ai)di , 

where  a,  are  its  roots  and  di  are  their  multiplicities  (to  simplify  formulas,  we  have 
assumed  that  the  leading  coefficient  is  1).  Let’s  group  factors  with  equal  df. 

p(x)  =  Up f , 

where  all  di  are  distinct  and  the  polynomials  Piix)  have  only  simple  zeros  (are 
square-free).  This  square-free  factorization  can  be  obtained  by  a  simple  algorithm 
which  uses  only  gcd  (this  is  much  simpler  than  the  full  factorization).  Namely, 

gcd(p,p')  =Y[pf~l  ■ 

Indeed,  the  polynomial  p(x)  has  zero  of  the  order  dj  at  v  ^  au  and  its  derivative  p'(x) 
has  zero  of  the  order  di  —  1 .  Write  a  function  to  calculate  square-free  factorization 
using  only  gcd. 
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